Set panel id when creating new panel

This was a bug introduced by removing add_panel().
joshuaulrich · Aug 27, 2023 · a93544f · a93544f
1 parent 7c65d0f
commit a93544f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -1156,7 +1156,7 @@ new.replot_xts <- function(panel=1,asp=1,xlim=c(1,10),ylim=list(structure(c(1,10
            title_timespan = FALSE)
   {
       panel <- new.env(TRUE, envir)
-      panel$id <- NA
+      panel$id <- length(Env$panels) + 1
       panel$asp <- c(header = 0.25, series = asp)
       panel$ylim <- ylim
       panel$ylim_render <- ylim