circumvent reserved label in reporter_previewer_module

insightsengineering · Sep 19, 2023 · 053405c · 053405c
1 parent 19bf60c
commit 053405c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/reporter_previewer_module.R b/R/reporter_previewer_module.R
@@ -28,10 +28,11 @@ reporter_previewer_module <- function(label = "Report previewer", server_args =
   }
 
   module <- module(
-    label = label,
+    label = "temporary label",
     server = srv, ui = ui,
     server_args = server_args, ui_args = list(), datanames = NULL
   )
   class(module) <- c("teal_module_previewer", class(module))
+  module$label <- label
   module
 }