pull_code function

Author: m7pr

R/tm_a_regression.R

@@ -1038,37 +1038,40 @@ srv_a_regression <- function(id,
     #   gsub(code, "", teal.data::get_code(data), fixed = TRUE)
     # }
 
-    setup_code_r <- reactive(teal.data::get_code(req(data())))
-    libraries_code_r <- reactive(teal.code::get_code(req(decorated_output_q()), labels = "libraries"))
+    pull_code <- function(data, labels){
+      reactive(teal.data::get_code(req(data()), labels = labels))
+    }
+    setup_code_r <- pull_code(data)
+    libraries_code_r <- pull_code(decorated_output_q, labels = "libraries")
       # reactive(
       #   subset_code(
       #     setup_code_r(),
       #     qenv
       #   )
       # )
-    data_prep_code_r <- reactive(teal.code::get_code(req(decorated_output_q()), labels = "data preparations"))
+    data_prep_code_r <- pull_code(decorated_output_q, labels = "data preparations")
       # reactive(
       #   subset_code(
       #     paste0(setup_code_r(), libraries_code_r()),
       #     req(anl_merged_q())
       #   )
       # )
-    fit_code_r <- reactive(teal.code::get_code(req(decorated_output_q()), labels = "fit"))
+    fit_code_r <- pull_code(decorated_output_q, labels = "fit")
       # reactive(
       #   subset_code(
       #     paste0(setup_code_r(), libraries_code_r(), data_prep_code_r()),
       #     req(fit_r())
       #   )
       # )
-    plot_code_r <- reactive(teal.code::get_code(req(decorated_output_q()), labels = "plot"))
+    plot_code_r <- pull_code(decorated_output_q, labels = "plot")
       # reactive(
       #   subset_code(
       #     paste0(setup_code_r(), libraries_code_r(), data_prep_code_r(), fit_code_r()),
       #     req(decorated_output_q())
       #   )
       # )
 
-    source_code_r <- reactive(teal.code::get_code(req(decorated_output_q())))
+    source_code_r <- pull_code(decorated_output_q)
 
     teal.widgets::verbatim_popup_srv(
       id = "rcode",