Skip to content

Commit d79f607

Browse files
m7prm7pr
committed
restrutcutre modules section headers
1 parent 6f7ee34 commit d79f607

File tree

10 files changed

+26
-26
lines changed

10 files changed

+26
-26
lines changed

‎R/tm_a_regression.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -460,7 +460,7 @@ srv_a_regression <- function(id,
460460
c(
461461
teal.reporter::teal_card("# Linear Regression Plot"),
462462
teal.reporter::teal_card(obj),
463-
teal.reporter::teal_card("## Module's code")
463+
teal.reporter::teal_card("## Module's output(s)")
464464
)
465465
teal.code::eval_code(obj, 'library("ggplot2");library("dplyr")') # nolint: quotes
466466
})
@@ -539,7 +539,7 @@ srv_a_regression <- function(id,
539539
fit_summary <- summary(fit)
540540
fit_summary
541541
}))
542-
teal.reporter::teal_card(anl_fit) <- c(teal.reporter::teal_card(anl_fit), "## Plot")
542+
teal.reporter::teal_card(anl_fit) <- c(teal.reporter::teal_card(anl_fit), "### Plot")
543543
anl_fit
544544
})
545545

‎R/tm_g_association.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -344,7 +344,7 @@ srv_tm_g_association <- function(id,
344344
c(
345345
teal.reporter::teal_card("# Association Plot"),
346346
teal.reporter::teal_card(obj),
347-
teal.reporter::teal_card("## Module's code")
347+
teal.reporter::teal_card("## Module's output(s)")
348348
)
349349
teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("ggmosaic")') # nolint: quotes
350350
})
@@ -495,7 +495,7 @@ srv_tm_g_association <- function(id,
495495
)
496496
}
497497
obj <- merged$anl_q_r()
498-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
498+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
499499
teal.code::eval_code(
500500
obj,
501501
substitute(

‎R/tm_g_bivariate.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -557,7 +557,7 @@ srv_g_bivariate <- function(id,
557557
c(
558558
teal.reporter::teal_card("# Bivariate Plot"),
559559
teal.reporter::teal_card(obj),
560-
teal.reporter::teal_card("## Module's code")
560+
teal.reporter::teal_card("## Module's output(s)")
561561
)
562562
obj %>%
563563
teal.code::eval_code(
@@ -692,7 +692,7 @@ srv_g_bivariate <- function(id,
692692
}
693693

694694
obj <- merged$anl_q_r()
695-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
695+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
696696
teal.code::eval_code(obj, substitute(expr = plot <- cl, env = list(cl = cl)))
697697
})
698698

‎R/tm_g_distribution.R‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -635,7 +635,7 @@ srv_distribution <- function(id,
635635
c(
636636
teal.reporter::teal_card("# Distribution Plot"),
637637
teal.reporter::teal_card(obj),
638-
teal.reporter::teal_card("## Module's code")
638+
teal.reporter::teal_card("## Module's output(s)")
639639
)
640640

641641
ANL <- obj[["ANL"]]
@@ -952,7 +952,7 @@ srv_distribution <- function(id,
952952
ggtheme = ggtheme
953953
)
954954

955-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Histogram Plot")
955+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Histogram Plot")
956956
teal.code::eval_code(
957957
qenv,
958958
substitute(
@@ -1083,7 +1083,7 @@ srv_distribution <- function(id,
10831083
ggtheme = ggtheme
10841084
)
10851085

1086-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## QQ Plot")
1086+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### QQ Plot")
10871087
teal.code::eval_code(
10881088
qenv,
10891089
substitute(

‎R/tm_g_response.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -409,7 +409,7 @@ srv_g_response <- function(id,
409409
c(
410410
teal.reporter::teal_card("# Response Plot"),
411411
teal.reporter::teal_card(qenv),
412-
teal.reporter::teal_card("## Module's code")
412+
teal.reporter::teal_card("## Module's output(s)")
413413
)
414414
ANL <- qenv[["ANL"]]
415415
resp_var <- as.vector(merged$anl_input_r()$columns_source$response)
@@ -570,7 +570,7 @@ srv_g_response <- function(id,
570570
ggthemes = parsed_ggplot2_args$ggtheme
571571
))
572572

573-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot")
573+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot")
574574
teal.code::eval_code(qenv, plot_call)
575575
})
576576

‎R/tm_g_scatterplot.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -586,7 +586,7 @@ srv_g_scatterplot <- function(id,
586586
teal.reporter::teal_card(obj) <- c(
587587
teal.reporter::teal_card("# Scatter Plot"),
588588
teal.reporter::teal_card(obj),
589-
teal.reporter::teal_card("## Module's code")
589+
teal.reporter::teal_card("## Module's output(s)")
590590
)
591591
teal.code::eval_code(data(), 'library("ggplot2");library("dplyr")') # nolint quotes
592592
})
@@ -1012,7 +1012,7 @@ srv_g_scatterplot <- function(id,
10121012

10131013
plot_call <- substitute(expr = plot <- plot_call, env = list(plot_call = plot_call))
10141014

1015-
teal.reporter::teal_card(plot_q) <- c(teal.reporter::teal_card(plot_q), "## Plot")
1015+
teal.reporter::teal_card(plot_q) <- c(teal.reporter::teal_card(plot_q), "### Plot")
10161016
teal.code::eval_code(plot_q, plot_call)
10171017
})
10181018

‎R/tm_g_scatterplotmatrix.R‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -329,7 +329,7 @@ srv_g_scatterplotmatrix <- function(id,
329329
teal.reporter::teal_card(obj) <- c(
330330
teal.reporter::teal_card("# Scatter Plot Matrix"),
331331
teal.reporter::teal_card(obj),
332-
teal.reporter::teal_card("## Module's code")
332+
teal.reporter::teal_card("## Module's output(s)")
333333
)
334334
qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint quotes
335335
teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))
@@ -391,7 +391,7 @@ srv_g_scatterplotmatrix <- function(id,
391391

392392

393393
# create plot
394-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Plot")
394+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Plot")
395395

396396
if (add_cor) {
397397
shinyjs::show("cor_method")

‎R/tm_missing_data.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -507,7 +507,7 @@ srv_missing_data <- function(id,
507507
teal.reporter::teal_card(obj) <- c(
508508
teal.reporter::teal_card("# Missing Data"),
509509
teal.reporter::teal_card(obj),
510-
teal.reporter::teal_card("## Module's code")
510+
teal.reporter::teal_card("## Module's output(s)")
511511
)
512512

513513
qenv <- teal.code::eval_code(obj, {
@@ -677,7 +677,7 @@ srv_missing_data <- function(id,
677677
combination_cutoff_q <- reactive({
678678
req(common_code_q())
679679
qenv <- common_code_q()
680-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Combination Plot")
680+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Combination Plot")
681681
teal.code::eval_code(
682682
qenv,
683683
quote(
@@ -736,7 +736,7 @@ srv_missing_data <- function(id,
736736
)
737737
)
738738

739-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Plot")
739+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Plot")
740740

741741
qenv <- teal.code::eval_code(
742742
qenv,
@@ -1092,7 +1092,7 @@ srv_missing_data <- function(id,
10921092
}
10931093

10941094
qenv <- common_code_q()
1095-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Table")
1095+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
10961096

10971097
qenv <- if (!is.null(group_var)) {
10981098
common_code_libraries_q <- teal.code::eval_code(
@@ -1173,7 +1173,7 @@ srv_missing_data <- function(id,
11731173
}
11741174

11751175
qenv <- common_code_q()
1176-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## By Subject Plot")
1176+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### By Subject Plot")
11771177

11781178
qenv <- teal.code::eval_code(
11791179
qenv,

‎R/tm_outliers.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -479,7 +479,7 @@ srv_outliers <- function(id, data, outlier_var,
479479
c(
480480
teal.reporter::teal_card("# Outliers Analysis"),
481481
teal.reporter::teal_card(qenv),
482-
teal.reporter::teal_card("## Module's code")
482+
teal.reporter::teal_card("## Module's output(s)")
483483
)
484484

485485
outlier_var <- as.vector(merged$anl_input_r()$columns_source$outlier_var)
@@ -650,7 +650,7 @@ srv_outliers <- function(id, data, outlier_var,
650650
}
651651

652652
qenv <- if (length(categorical_var) > 0) {
653-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Summary Table")
653+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Summary Table")
654654
qenv <- teal.code::eval_code(
655655
qenv,
656656
substitute(
@@ -764,7 +764,7 @@ srv_outliers <- function(id, data, outlier_var,
764764
box_plot_q <- reactive({
765765
req(common_code_q())
766766
qenv <- common_code_q()
767-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Box Plot")
767+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Box Plot")
768768

769769
ANL <- qenv[["ANL"]]
770770
ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
@@ -858,7 +858,7 @@ srv_outliers <- function(id, data, outlier_var,
858858
# density plot
859859
density_plot_q <- reactive({
860860
qenv <- common_code_q()
861-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Density Plot")
861+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Density Plot")
862862

863863
ANL <- qenv[["ANL"]]
864864
ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]
@@ -920,7 +920,7 @@ srv_outliers <- function(id, data, outlier_var,
920920
# Cumulative distribution plot
921921
cumulative_plot_q <- reactive({
922922
qenv <- common_code_q()
923-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Cumulative Distribution Plot")
923+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Cumulative Distribution Plot")
924924

925925
ANL <- qenv[["ANL"]]
926926
ANL_OUTLIER <- qenv[["ANL_OUTLIER"]]

‎R/tm_t_crosstable.R‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -330,7 +330,7 @@ srv_t_crosstable <- function(id, data, label, x, y, remove_zero_columns, basic_t
330330
c(
331331
teal.reporter::teal_card("# Cross Table"),
332332
teal.reporter::teal_card(obj),
333-
teal.reporter::teal_card("## Module's code")
333+
teal.reporter::teal_card("## Module's output(s)")
334334
)
335335
teal.code::eval_code(obj, 'library("rtables");library("tern");library("dplyr")') # nolint quotes
336336
})

0 commit comments

Comments
 (0)