Skip to content

Commit c61f6ce

Browse files
m7prm7pr
authored
Merge branch 'main' into TealAppDriver_changes
2 parents 00811bc + 5b5a536 commit c61f6ce

14 files changed

+51
-50
lines changed

‎DESCRIPTION‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
Type: Package
22
Package: teal.modules.general
33
Title: General Modules for 'teal' Applications
4-
Version: 0.5.0.9005
5-
Date: 2025-10-07
4+
Version: 0.5.0.9007
5+
Date: 2025-10-14
66
Authors@R: c(
77
person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
88
person("Pawel", "Rucki", , "[email protected]", role = "aut"),

‎NEWS.md‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
# teal.modules.general 0.5.0.9005
1+
# teal.modules.general 0.5.0.9007
22

33
### Enhancements
44

‎R/tm_a_pca.R‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -435,7 +435,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
435435
c(
436436
teal.reporter::teal_card("# Principal Component Analysis"),
437437
teal.reporter::teal_card(obj),
438-
teal.reporter::teal_card("## Module's code")
438+
teal.reporter::teal_card("## Module's output(s)")
439439
)
440440
teal.code::eval_code(obj, 'library("ggplot2");library("dplyr");library("tidyr")') # nolint: quotes
441441
})
@@ -514,7 +514,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
514514
)
515515
)
516516

517-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Principal Components Table")
517+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Principal Components Table")
518518

519519
qenv <- teal.code::eval_code(
520520
qenv,
@@ -524,7 +524,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
524524
})
525525
)
526526

527-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Eigenvectors Table")
527+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Eigenvectors Table")
528528

529529
teal.code::eval_code(
530530
qenv,
@@ -606,7 +606,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
606606
),
607607
ggtheme = ggtheme
608608
)
609-
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Elbow plot")
609+
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Elbow plot")
610610
teal.code::eval_code(
611611
base_q,
612612
substitute(
@@ -683,7 +683,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
683683
ggtheme = ggtheme
684684
)
685685

686-
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Circle plot")
686+
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Circle plot")
687687
teal.code::eval_code(
688688
base_q,
689689
substitute(
@@ -742,7 +742,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
742742
size <- input$size
743743
font_size <- input$font_size
744744

745-
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Biplot")
745+
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Biplot")
746746
qenv <- teal.code::eval_code(
747747
qenv,
748748
substitute(
@@ -1003,7 +1003,7 @@ srv_a_pca <- function(id, data, dat, plot_height, plot_width, ggplot2_args, deco
10031003
parsed_ggplot2_args$theme
10041004
)
10051005

1006-
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "## Eigenvector plot")
1006+
teal.reporter::teal_card(base_q) <- c(teal.reporter::teal_card(base_q), "### Eigenvector plot")
10071007
teal.code::eval_code(
10081008
base_q,
10091009
substitute(

‎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('library("ggplot2");library("dplyr")') %>%
@@ -688,7 +688,7 @@ srv_g_bivariate <- function(id,
688688
}
689689

690690
obj <- merged$anl_q_r()
691-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
691+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
692692
teal.code::eval_code(obj, substitute(expr = plot <- cl, env = list(cl = cl)))
693693
})
694694

‎R/tm_g_distribution.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -637,7 +637,7 @@ srv_distribution <- function(id,
637637
c(
638638
teal.reporter::teal_card("# Distribution Plot"),
639639
teal.reporter::teal_card(obj),
640-
teal.reporter::teal_card("## Module's code")
640+
teal.reporter::teal_card("## Module's output(s)")
641641
)
642642

643643
ANL <- obj[["ANL"]]
@@ -954,7 +954,7 @@ srv_distribution <- function(id,
954954
ggtheme = ggtheme
955955
)
956956

957-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## Histogram Plot")
957+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### Histogram Plot")
958958
teal.code::eval_code(
959959
qenv,
960960
substitute(
@@ -1085,7 +1085,7 @@ srv_distribution <- function(id,
10851085
ggtheme = ggtheme
10861086
)
10871087

1088-
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "## QQ Plot")
1088+
teal.reporter::teal_card(qenv) <- c(teal.reporter::teal_card(qenv), "### QQ Plot")
10891089
teal.code::eval_code(
10901090
qenv,
10911091
substitute(
@@ -1276,7 +1276,7 @@ srv_distribution <- function(id,
12761276
q_common <- common_q()
12771277
teal.reporter::teal_card(q_common) <- c(
12781278
teal.reporter::teal_card(q_common),
1279-
"## Statistics table"
1279+
"### Statistics table"
12801280
)
12811281
if (iv_r()$is_valid()) {
12821282
within(q_common, {
@@ -1296,7 +1296,7 @@ srv_distribution <- function(id,
12961296
q_common <- common_q()
12971297
teal.reporter::teal_card(q_common) <- c(
12981298
teal.reporter::teal_card(q_common),
1299-
"## Distribution Tests table"
1299+
"### Distribution Tests table"
13001300
)
13011301
if (inherits(test_q_out, c("try-error", "error"))) {
13021302
within(

‎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")

0 commit comments

Comments
 (0)