Skip to content

Commit c27121d

Browse files
m7prm7pr
authored
restructure sections (#1432)
Part of: - insightsengineering/teal.reporter#400 Restructured sections-headers. Pleaase check out with - insightsengineering/teal.reporter#425 - insightsengineering/teal#1634
1 parent 1d6bec0 commit c27121d

37 files changed

+75
-112
lines changed

‎R/tm_a_gee.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -504,9 +504,8 @@ srv_gee <- function(id,
504504
obj <- data()
505505
teal.reporter::teal_card(obj) <-
506506
c(
507-
teal.reporter::teal_card("# Generalized Estimating Equations (GEE) Analysis Table"),
508507
teal.reporter::teal_card(obj),
509-
teal.reporter::teal_card("## Module's code")
508+
teal.reporter::teal_card("## Module's output(s)")
510509
)
511510
obj %>%
512511
teal.code::eval_code(as.expression(anl_inputs()$expr)) %>%
@@ -570,7 +569,7 @@ srv_gee <- function(id,
570569
)
571570

572571
obj <- merged$anl_q()
573-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), paste("## ", table_type, "Table"))
572+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), paste("### ", table_type, "Table"))
574573
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
575574
})
576575

‎R/tm_a_mmrm.R‎

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1031,9 +1031,8 @@ srv_mmrm <- function(id,
10311031
obj <- data_with_tern_options_r()
10321032
teal.reporter::teal_card(obj) <-
10331033
c(
1034-
teal.reporter::teal_card("# Mixed Model Repeated Measurements (MMRM) Analysis"),
10351034
teal.reporter::teal_card(obj),
1036-
teal.reporter::teal_card("## Module's code")
1035+
teal.reporter::teal_card("## Module's output(s)")
10371036
)
10381037
obj %>%
10391038
teal.code::eval_code(code = as.expression(anl_inputs()$expr)) %>%
@@ -1402,7 +1401,7 @@ srv_mmrm <- function(id,
14021401
)
14031402

14041403
obj <- qenv
1405-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Table")
1404+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table")
14061405
teal.code::eval_code(obj, as.expression(mmrm_table))
14071406
})
14081407

@@ -1474,7 +1473,7 @@ srv_mmrm <- function(id,
14741473
ggplot2_args = ggplot2_args
14751474
)
14761475
obj <- qenv
1477-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
1476+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
14781477
teal.code::eval_code(obj, as.expression(mmrm_plot_expr))
14791478
})
14801479

‎R/tm_g_barchart_simple.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -432,9 +432,8 @@ srv_g_barchart_simple <- function(id,
432432
obj <- data()
433433
teal.reporter::teal_card(obj) <-
434434
c(
435-
teal.reporter::teal_card("# Barchart"),
436435
teal.reporter::teal_card(obj),
437-
teal.reporter::teal_card("## Module's code")
436+
teal.reporter::teal_card("## Module's output(s)")
438437
)
439438
obj %>% teal.code::eval_code(as.expression(anl_inputs()$expr))
440439
})
@@ -544,7 +543,7 @@ srv_g_barchart_simple <- function(id,
544543
groupby_vars
545544
)
546545
))
547-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
546+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
548547
teal.code::eval_code(obj, code = plot_call)
549548
})
550549

‎R/tm_g_ci.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -450,9 +450,8 @@ srv_g_ci <- function(id,
450450
obj <- data()
451451
teal.reporter::teal_card(obj) <-
452452
c(
453-
teal.reporter::teal_card("# CI Plot"),
454453
teal.reporter::teal_card(obj),
455-
teal.reporter::teal_card("## Module's code")
454+
teal.reporter::teal_card("## Module's output(s)")
456455
)
457456
obj %>% teal.code::eval_code(as.expression(anl_inputs()$expr))
458457
})
@@ -504,7 +503,7 @@ srv_g_ci <- function(id,
504503
ggplot2_args = ggplot2_args
505504
)
506505
obj <- anl_q()
507-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
506+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
508507
teal.code::eval_code(obj, list_calls)
509508
})
510509

‎R/tm_g_forest_rsp.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -612,9 +612,8 @@ srv_g_forest_rsp <- function(id,
612612
obj <- data()
613613
teal.reporter::teal_card(obj) <-
614614
c(
615-
teal.reporter::teal_card("# Forest Response Plot"),
616615
teal.reporter::teal_card(obj),
617-
teal.reporter::teal_card("## Module's code")
616+
teal.reporter::teal_card("## Module's output(s)")
618617
)
619618
obj %>%
620619
teal.code::eval_code(code = as.expression(anl_inputs()$expr)) %>%
@@ -783,7 +782,7 @@ srv_g_forest_rsp <- function(id,
783782
ggplot2_args = ggplot2_args
784783
)
785784
obj <- anl_q()
786-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Table and Plot")
785+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table and Plot")
787786
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
788787
})
789788

‎R/tm_g_forest_tte.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -618,9 +618,8 @@ srv_g_forest_tte <- function(id,
618618
obj <- data()
619619
teal.reporter::teal_card(obj) <-
620620
c(
621-
teal.reporter::teal_card("# Forest Survival Plot"),
622621
teal.reporter::teal_card(obj),
623-
teal.reporter::teal_card("## Module's code")
622+
teal.reporter::teal_card("## Module's output(s)")
624623
)
625624
obj %>%
626625
teal.code::eval_code(code = as.expression(anl_inputs()$expr)) %>%
@@ -718,7 +717,7 @@ srv_g_forest_tte <- function(id,
718717
ggplot2_args = ggplot2_args
719718
)
720719
obj <- anl_q()
721-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Table and Plot")
720+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table and Plot")
722721
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
723722
})
724723

‎R/tm_g_ipp.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -548,9 +548,8 @@ srv_g_ipp <- function(id,
548548
obj <- data()
549549
teal.reporter::teal_card(obj) <-
550550
c(
551-
teal.reporter::teal_card("# Individual Patient Plot"),
552551
teal.reporter::teal_card(obj),
553-
teal.reporter::teal_card("## Module's code")
552+
teal.reporter::teal_card("## Module's output(s)")
554553
)
555554
obj %>%
556555
teal.code::eval_code(code = as.expression(anl_inputs()$expr)) %>%
@@ -630,7 +629,7 @@ srv_g_ipp <- function(id,
630629
add_avalu = input$add_avalu
631630
)
632631
obj <- anl_q()
633-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
632+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
634633
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
635634
})
636635

‎R/tm_g_km.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -758,9 +758,8 @@ srv_g_km <- function(id,
758758
obj <- data()
759759
teal.reporter::teal_card(obj) <-
760760
c(
761-
teal.reporter::teal_card("# Kaplan-Meier Plot"),
762761
teal.reporter::teal_card(obj),
763-
teal.reporter::teal_card("## Module's code")
762+
teal.reporter::teal_card("## Module's output(s)")
764763
)
765764
obj %>% teal.code::eval_code(code = as.expression(anl_inputs()$expr))
766765
})
@@ -851,7 +850,7 @@ srv_g_km <- function(id,
851850
title = title
852851
)
853852
obj <- anl_q()
854-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
853+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
855854
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
856855
})
857856

‎R/tm_g_lineplot.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -599,9 +599,8 @@ srv_g_lineplot <- function(id,
599599
obj <- data()
600600
teal.reporter::teal_card(obj) <-
601601
c(
602-
teal.reporter::teal_card("# Line Plot"),
603602
teal.reporter::teal_card(obj),
604-
teal.reporter::teal_card("## Module's code")
603+
teal.reporter::teal_card("## Module's output(s)")
605604
)
606605
obj %>% teal.code::eval_code(code = as.expression(anl_inputs()$expr))
607606
})
@@ -674,7 +673,7 @@ srv_g_lineplot <- function(id,
674673
ggplot2_args = ggplot2_args
675674
)
676675
obj <- merged$anl_q()
677-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Plot")
676+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Plot")
678677
teal.code::eval_code(obj, as.expression(unlist(my_calls)))
679678
})
680679

‎R/tm_g_pp_adverse_events.R‎

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -535,9 +535,8 @@ srv_g_adverse_events <- function(id,
535535
obj <- data()
536536
teal.reporter::teal_card(obj) <-
537537
c(
538-
teal.reporter::teal_card("# Patient Profile Adverse Events"),
539538
teal.reporter::teal_card(obj),
540-
teal.reporter::teal_card("## Module's code")
539+
teal.reporter::teal_card("## Module's output(s)")
541540
)
542541
obj %>% teal.code::eval_code(code = as.expression(anl_inputs()$expr))
543542
})
@@ -577,7 +576,7 @@ srv_g_adverse_events <- function(id,
577576
ggplot2_args = ggplot2_args
578577
)
579578
obj <- anl_q2
580-
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "## Table and Plot")
579+
teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "### Table and Plot")
581580
teal.code::eval_code(obj, as.expression(calls))
582581
})
583582

0 commit comments

Comments
 (0)