From a93544f7f61365151aaf34c62e8f884f2690a6fa Mon Sep 17 00:00:00 2001
From: Joshua Ulrich <josh.m.ulrich@gmail.com>
Date: Sun, 27 Aug 2023 15:35:38 -0500
Subject: [PATCH] Set panel id when creating new panel

This was a bug introduced by removing add_panel().
---
 R/plot.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot.R b/R/plot.R
index 5d027514..15972709 100644
--- 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