name replacement

Author: m7pr

R/tm_a_pca.R

@@ -1080,7 +1080,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
       graph_align = "center"
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
 
     # tables ----
     output$tbl_importance <- renderTable(

R/tm_a_regression.R

@@ -1021,7 +1021,7 @@ srv_a_regression <- function(id,
       width = plot_width
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
 
     output$text <- renderText({
       req(iv_r()$is_valid())

R/tm_g_association.R

@@ -542,7 +542,7 @@ srv_tm_g_association <- function(id,
       width = plot_width
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_grob_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_grob_q)
 
     output$title <- renderText(output_q()[["title"]])
 

R/tm_g_bivariate.R

@@ -741,7 +741,7 @@ srv_g_bivariate <- function(id,
       width = plot_width
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q_facets)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q_facets)
 
     # Render R code.
 

R/tm_g_distribution.R

@@ -1385,9 +1385,9 @@ srv_distribution <- function(id,
       brushing = FALSE
     )
 
-    decorated_output_dist_dims_q <- set_plot_dims(pws1, decorated_output_dist_q)
+    decorated_output_dist_dims_q <- set_chunk_dims(pws1, decorated_output_dist_q)
 
-    decorated_output_qq_dims_q <- set_plot_dims(pws2, decorated_output_qq_q)
+    decorated_output_qq_dims_q <- set_chunk_dims(pws2, decorated_output_qq_q)
 
     decorated_output_q <- reactive({
       tab <- req(input$tabs) # tab is NULL upon app launch, hence will crash without this statement

R/tm_g_response.R

@@ -594,7 +594,7 @@ srv_g_response <- function(id,
       width = plot_width
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_plot_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_plot_q)
 
     # Render R code.
     source_code_r <- reactive(teal.code::get_code(req(decorated_output_dims_q())))

R/tm_g_scatterplot.R

@@ -1037,7 +1037,7 @@ srv_g_scatterplot <- function(id,
       brushing = TRUE
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_plot_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_plot_q)
 
     output$data_table <- DT::renderDataTable({
       plot_brush <- pws$brush()

R/tm_g_scatterplotmatrix.R

@@ -479,7 +479,7 @@ srv_g_scatterplotmatrix <- function(id,
       width = plot_width
     )
 
-    decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
+    decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
 
     # show a message if conversion to factors took place
     output$message <- renderText({

R/tm_missing_data.R

@@ -1373,11 +1373,11 @@ srv_missing_data <- function(id,
       width = plot_width
     )
 
-    decorated_summary_plot_dims_q <- set_plot_dims(pws1, decorated_summary_plot_q)
+    decorated_summary_plot_dims_q <- set_chunk_dims(pws1, decorated_summary_plot_q)
 
-    decorated_combination_plot_dims_q <- set_plot_dims(pws2, decorated_combination_plot_q)
+    decorated_combination_plot_dims_q <- set_chunk_dims(pws2, decorated_combination_plot_q)
 
-    decorated_by_subject_plot_dims_q <- set_plot_dims(pws3, decorated_by_subject_plot_q)
+    decorated_by_subject_plot_dims_q <- set_chunk_dims(pws3, decorated_by_subject_plot_q)
 
     decorated_final_q <- reactive({
       sum_type <- req(input$summary_type)