Skip to content

Commit d2a903f

Browse files
llrs-rochellrs-roche
authored
Merge branch 'main' into 495_plot_missing@main
Signed-off-by: Lluís Revilla <[email protected]>
2 parents 5c4b580 + 5b5a536 commit d2a903f

13 files changed

+50
-46
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)")
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)")
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)")
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
@@ -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(
@@ -1274,7 +1274,7 @@ srv_distribution <- function(id,
12741274
q_common <- common_q()
12751275
teal.reporter::teal_card(q_common) <- c(
12761276
teal.reporter::teal_card(q_common),
1277-
"## Statistics table"
1277+
"### Statistics table"
12781278
)
12791279
if (iv_r()$is_valid()) {
12801280
within(q_common, {
@@ -1294,7 +1294,7 @@ srv_distribution <- function(id,
12941294
q_common <- common_q()
12951295
teal.reporter::teal_card(q_common) <- c(
12961296
teal.reporter::teal_card(q_common),
1297-
"## Distribution Tests table"
1297+
"### Distribution Tests table"
12981298
)
12991299
if (inherits(test_q_out, c("try-error", "error"))) {
13001300
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)")
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)")
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)