From 25d7a6f304f8584411dde1ab2555a892a26946ba Mon Sep 17 00:00:00 2001 From: mtennekes Date: Thu, 28 Nov 2024 09:06:37 +0100 Subject: [PATCH] fixed vig-10 triggered bug --- R/step4_plot.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/step4_plot.R b/R/step4_plot.R index 5de361fa..c841f8c1 100644 --- a/R/step4_plot.R +++ b/R/step4_plot.R @@ -619,7 +619,7 @@ step4_plot = function(tm, vp, return.asp, show, in.shiny, knit, args) { } else { NULL }}, - {if (length(aux)) list(data.frame(gid = 0, glid = 1L:length(aux), lid = aux_lid, group = aux_group, group.control = aux_group.control, lid2 = 0, pane = "", new = TRUE, group.zoom_levels = I(NA))) else NULL})) + {if (length(aux)) list(data.frame(gid = 0, glid = 1L:length(aux), lid = aux_lid, group = aux_group, group.control = aux_group.control, lid2 = 0, pane = "", new = TRUE, group.zoom_levels = I(rep(list(NA),length(aux))))) else NULL})) #q$lid[q$lid != 0] = q$lid[q$lid != 0] + 400L