add libraries code and the code to create objects

Author: m7pr

R/tm_a_pca.R

@@ -1126,11 +1126,19 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
     subset_code <- function(code, data) {
       gsub(code, "", teal.data::get_code(data), fixed = TRUE)
     }
-    setup_code_r <- reactive(teal.data::get_code(qenv))
-    data_prep_code_r <-
+    setup_code_r <- reactive(teal.data::get_code(req(data())))
+    libraries_code_r <-
       reactive(
         subset_code(
           setup_code_r(),
+          qenv
+        )
+      )
+
+    data_prep_code_r <-
+      reactive(
+        subset_code(
+          paste0(setup_code_r(), libraries_code_r()),
           req(anl_merged_q())
         )
       )
@@ -1184,25 +1192,28 @@ srv_a_pca <- function(id, data, reporter, filter_panel_api, dat, plot_height, pl
         "## Setup",
         teal.reporter::code_chunk(setup_code_r()),
 
+        "## Libraries",
+        teal.reporter::code_chunk(libraries_code_r(), eval = TRUE),
+
         "## Data Preparations",
         teal.reporter::code_chunk(data_prep_code_r()),
 
         "## PCA Model",
         teal.reporter::code_chunk(computation_model_code_r()),
 
         "### Principal Components Table",
-        teal.reporter::code_chunk(computation_tbl_imp_code_r()) |>
-          teal.reporter::link_output(computation()[["tbl_importance"]]),
+        teal.reporter::code_chunk(computation_tbl_imp_code_r()),
+        computation()[["tbl_importance"]],
 
         "### Eigenvectors Table",
-        teal.reporter::code_chunk(computation_tbl_eig_code_r()) |>
-          teal.reporter::link_output(computation()[["tbl_eigenvector"]]),
+        teal.reporter::code_chunk(computation_tbl_eig_code_r()),
+        computation()[["tbl_eigenvector"]],
 
         "### Plot",
         teal.reporter::code_chunk(
           plot_code_r() |> styler::style_text() |> paste(collapse = "\n")
-        ) |>
-          teal.reporter::link_output(plot_r())
+        ),
+        plot_r()
       )
     })
 

R/tm_a_regression.R

@@ -1027,25 +1027,32 @@ srv_a_regression <- function(id,
     subset_code <- function(code, data) {
       gsub(code, "", teal.data::get_code(data), fixed = TRUE)
     }
-    setup_code_r <- reactive(teal.data::get_code(qenv))
-    data_prep_code_r <-
+    setup_code_r <- reactive(teal.data::get_code(req(data())))
+    libraries_code_r <-
       reactive(
         subset_code(
           setup_code_r(),
+          qenv
+        )
+      )
+    data_prep_code_r <-
+      reactive(
+        subset_code(
+          paste0(setup_code_r(), libraries_code_r()),
           req(anl_merged_q())
         )
       )
     fit_code_r <-
       reactive(
         subset_code(
-          paste0(setup_code_r(), data_prep_code_r()),
+          paste0(setup_code_r(), libraries_code_r(), data_prep_code_r()),
           req(fit_r())
         )
       )
     plot_code_r <-
       reactive(
         subset_code(
-          paste0(setup_code_r(), data_prep_code_r(), fit_code_r()),
+          paste0(setup_code_r(), libraries_code_r(), data_prep_code_r(), fit_code_r()),
           req(decorated_output_q())
         )
       )
@@ -1066,6 +1073,9 @@ srv_a_regression <- function(id,
         "## Setup",
         teal.reporter::code_chunk(setup_code_r()),
 
+        "## Libraries",
+        teal.reporter::code_chunk(libraries_code_r(), eval = TRUE),
+
         "## Data Preparations",
         teal.reporter::code_chunk(data_prep_code_r()),
 
@@ -1080,17 +1090,27 @@ srv_a_regression <- function(id,
         "## Plot",
         teal.reporter::code_chunk(
           plot_code_r() |> styler::style_text() |> paste(collapse = "\n")
-        ) |>
-          teal.reporter::link_output(plot_r()),
+        ),
+        plot_r(),
 
         "## rtables for testing",
+        teal.reporter::code_chunk(
+          "rtables::rtable(
+          header = LETTERS[1:3],
+          rtables::rrow('one to three', 1, 2, 3),
+          rtables::rrow('more stuff', rtables::rcell(pi, format = 'xx.xx'), 'test', 'and more')
+          )"
+        ),
         rtables::rtable(
           header = LETTERS[1:3],
           rtables::rrow("one to three", 1, 2, 3),
           rtables::rrow("more stuff", rtables::rcell(pi, format = "xx.xx"), "test", "and more")
         ),
 
         "## Table for testing",
+        teal.reporter::code_chunk(
+          "head(iris)"
+        ),
         head(iris)
       )
     })