this req is not needed

insightsengineering · Nov 19, 2024 · cbc401e · cbc401e
1 parent b91b8c0
commit cbc401e
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git a/R/dummy_functions.R b/R/dummy_functions.R
@@ -58,7 +58,6 @@ example_module <- function(label = "example teal module",
         table_data_decorated <- srv_teal_transform_data("decorate", data = table_data, transformators = decorators)
 
         output$text <- renderPrint({
-          req(table_data_decorated())
           table_data_decorated()[["object"]]
         })
 

diff --git a/vignettes/decorate-module-output.Rmd b/vignettes/decorate-module-output.Rmd
@@ -245,7 +245,6 @@ tm_decorated_plot <- function(label = "module", transformators = list(), decorat
         plot_data_decorated <- srv_teal_transform_data("decorate", data = plot_data, transformators = decorators)
 
         plot_r <- reactive({
-          req(plot_data_decorated())
           plot_data_decorated()[["plot"]]
         })
 
@@ -385,10 +384,8 @@ tm_decorated_plot <- function(
         plot_r <- reactive({
           req(input$plot_type)
           if (input$plot_type == "plot 1") {
-            req(plot_1_data_decorated())
             plot_1_data_decorated()[["plot_1"]]
           } else if (input$plot_type == "plot 2") {
-            req(plot_2_data_decorated())
             plot_2_data_decorated()[["plot_2"]]
           }
         })