Skip to content

Commit abe3fd1

Browse files
committed
name replacement
1 parent 74921a8 commit abe3fd1

File tree

9 files changed

+12
-12
lines changed

9 files changed

+12
-12
lines changed

R/tm_a_pca.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1080,7 +1080,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
10801080
graph_align = "center"
10811081
)
10821082

1083-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
1083+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
10841084

10851085
# tables ----
10861086
output$tbl_importance <- renderTable(

R/tm_a_regression.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1021,7 +1021,7 @@ srv_a_regression <- function(id,
10211021
width = plot_width
10221022
)
10231023

1024-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
1024+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
10251025

10261026
output$text <- renderText({
10271027
req(iv_r()$is_valid())

R/tm_g_association.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -542,7 +542,7 @@ srv_tm_g_association <- function(id,
542542
width = plot_width
543543
)
544544

545-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_grob_q)
545+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_grob_q)
546546

547547
output$title <- renderText(output_q()[["title"]])
548548

R/tm_g_bivariate.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -741,7 +741,7 @@ srv_g_bivariate <- function(id,
741741
width = plot_width
742742
)
743743

744-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q_facets)
744+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q_facets)
745745

746746
# Render R code.
747747

R/tm_g_distribution.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1385,9 +1385,9 @@ srv_distribution <- function(id,
13851385
brushing = FALSE
13861386
)
13871387

1388-
decorated_output_dist_dims_q <- set_plot_dims(pws1, decorated_output_dist_q)
1388+
decorated_output_dist_dims_q <- set_chunk_dims(pws1, decorated_output_dist_q)
13891389

1390-
decorated_output_qq_dims_q <- set_plot_dims(pws2, decorated_output_qq_q)
1390+
decorated_output_qq_dims_q <- set_chunk_dims(pws2, decorated_output_qq_q)
13911391

13921392
decorated_output_q <- reactive({
13931393
tab <- req(input$tabs) # tab is NULL upon app launch, hence will crash without this statement

R/tm_g_response.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -594,7 +594,7 @@ srv_g_response <- function(id,
594594
width = plot_width
595595
)
596596

597-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_plot_q)
597+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_plot_q)
598598

599599
# Render R code.
600600
source_code_r <- reactive(teal.code::get_code(req(decorated_output_dims_q())))

R/tm_g_scatterplot.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1037,7 +1037,7 @@ srv_g_scatterplot <- function(id,
10371037
brushing = TRUE
10381038
)
10391039

1040-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_plot_q)
1040+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_plot_q)
10411041

10421042
output$data_table <- DT::renderDataTable({
10431043
plot_brush <- pws$brush()

R/tm_g_scatterplotmatrix.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -479,7 +479,7 @@ srv_g_scatterplotmatrix <- function(id,
479479
width = plot_width
480480
)
481481

482-
decorated_output_dims_q <- set_plot_dims(pws, decorated_output_q)
482+
decorated_output_dims_q <- set_chunk_dims(pws, decorated_output_q)
483483

484484
# show a message if conversion to factors took place
485485
output$message <- renderText({

R/tm_missing_data.R

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1373,11 +1373,11 @@ srv_missing_data <- function(id,
13731373
width = plot_width
13741374
)
13751375

1376-
decorated_summary_plot_dims_q <- set_plot_dims(pws1, decorated_summary_plot_q)
1376+
decorated_summary_plot_dims_q <- set_chunk_dims(pws1, decorated_summary_plot_q)
13771377

1378-
decorated_combination_plot_dims_q <- set_plot_dims(pws2, decorated_combination_plot_q)
1378+
decorated_combination_plot_dims_q <- set_chunk_dims(pws2, decorated_combination_plot_q)
13791379

1380-
decorated_by_subject_plot_dims_q <- set_plot_dims(pws3, decorated_by_subject_plot_q)
1380+
decorated_by_subject_plot_dims_q <- set_chunk_dims(pws3, decorated_by_subject_plot_q)
13811381

13821382
decorated_final_q <- reactive({
13831383
sum_type <- req(input$summary_type)

0 commit comments

Comments
 (0)