From 62071a145937cc4e441b60d0e35dbde33a481f2c Mon Sep 17 00:00:00 2001 From: mtennekes Date: Wed, 27 Nov 2024 22:32:45 +0100 Subject: [PATCH] fixed bug q data.frame step4 --- R/step4_plot.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/step4_plot.R b/R/step4_plot.R index 8113d807..5de361fa 100644 --- a/R/step4_plot.R +++ b/R/step4_plot.R @@ -614,12 +614,12 @@ step4_plot = function(tm, vp, return.asp, show, in.shiny, knit, args) { lid = vapply(tmxi$layers, function(l) {l$lid}, FUN.VALUE = numeric(1)) group = vapply(tmxi$layers, function(l) {l$group}, FUN.VALUE = character(1)) group.control = vapply(tmxi$layers, function(l) {l$group.control}, FUN.VALUE = character(1)) # used to determine control layer group (view mode) - data.frame(gid = ig, glid = 1:nl, lid = lid, group = group, group.control = group.control, lid2 = 0, pane = "", new = TRUE) + data.frame(gid = rep(ig, nl), glid = 1:nl, lid = lid, group = group, group.control = group.control, lid2 = rep(0, nl), pane = rep("", nl), new = rep(TRUE, nl), group.zoom_levels = I(rep(list(NA),nl))) }) } 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)) 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})) #q$lid[q$lid != 0] = q$lid[q$lid != 0] + 400L