diff --git a/R/tm_g_pp_adverse_events.R b/R/tm_g_pp_adverse_events.R
index 245cade48d..ea37176a7e 100644
--- a/R/tm_g_pp_adverse_events.R
+++ b/R/tm_g_pp_adverse_events.R
@@ -54,7 +54,7 @@ template_adverse_events <- function(dataname = "ANL",
dplyr::arrange(dplyr::desc(tox_grade)) %>%
`colnames<-`(get_labels(dataname)$column_labels[vars])
- table <- as_listing(
+ table <- rlistings::as_listing(
table,
key_cols = NULL,
default_formatting = list(all = fmt_config(align = "left"))
@@ -320,7 +320,7 @@ ui_g_adverse_events <- function(id, ...) {
ns <- shiny::NS(id)
teal.widgets::standard_layout(
output = shiny::div(
- htmlOutput(ns("title")),
+ shiny::htmlOutput(ns("title")),
teal.widgets::get_dt_rows(ns("table"), ns("table_rows")),
DT::DTOutput(outputId = ns("table")),
teal.widgets::plot_with_settings_ui(id = ns("chart"))
@@ -539,7 +539,7 @@ srv_g_adverse_events <- function(id,
teal.code::eval_code(qenv2, as.expression(calls))
})
- output$title <- renderText({
+ output$title <- shiny::renderText({
paste("
Patient ID:", all_q()[["pt_id"]], "
")
})
diff --git a/R/tm_g_pp_therapy.R b/R/tm_g_pp_therapy.R
index e7d03e6576..e583db63ca 100644
--- a/R/tm_g_pp_therapy.R
+++ b/R/tm_g_pp_therapy.R
@@ -88,7 +88,7 @@ template_therapy <- function(dataname = "ANL",
get_labels(dataname)$column_labels[c(cmstdy_char, cmendy_char)]
))
- therapy_table <- as_listing(
+ therapy_table <- rlistings::as_listing(
therapy_table,
key_cols = NULL,
default_formatting = list(all = fmt_config(align = "left"))
@@ -420,7 +420,7 @@ ui_g_therapy <- function(id, ...) {
ns <- shiny::NS(id)
teal.widgets::standard_layout(
output = shiny::div(
- htmlOutput(ns("title")),
+ shiny::htmlOutput(ns("title")),
teal.widgets::get_dt_rows(ns("therapy_table"), ns("therapy_table_rows")),
DT::DTOutput(outputId = ns("therapy_table")),
teal.widgets::plot_with_settings_ui(id = ns("therapy_plot"))
@@ -659,7 +659,7 @@ srv_g_therapy <- function(id,
teal.code::eval_code(as.expression(my_calls))
})
- output$title <- renderText({
+ output$title <- shiny::renderText({
paste("Patient ID:", all_q()[["pt_id"]], "
")
})
diff --git a/R/tm_t_pp_basic_info.R b/R/tm_t_pp_basic_info.R
index 2bfa9549f8..d6a112f223 100644
--- a/R/tm_t_pp_basic_info.R
+++ b/R/tm_t_pp_basic_info.R
@@ -33,7 +33,7 @@ template_basic_info <- function(dataname = "ANL",
dplyr::select(var, key, value) %>%
dplyr::rename(` ` = var, ` ` = key, ` ` = value)
- result <- as_listing(
+ result <- rlistings::as_listing(
result,
default_formatting = list(all = fmt_config(align = "left"))
)
@@ -129,7 +129,7 @@ ui_t_basic_info <- function(id, ...) {
ns <- shiny::NS(id)
teal.widgets::standard_layout(
output = shiny::div(
- htmlOutput(ns("title")),
+ shiny::htmlOutput(ns("title")),
DT::DTOutput(outputId = ns("basic_info_table"))
),
encoding = shiny::div(
@@ -251,7 +251,7 @@ srv_t_basic_info <- function(id,
teal.code::eval_code(as.expression(my_calls))
})
- output$title <- renderText({
+ output$title <- shiny::renderText({
paste("Patient ID:", all_q()[["pt_id"]], "
")
})
diff --git a/R/tm_t_pp_laboratory.R b/R/tm_t_pp_laboratory.R
index 9709df6c8f..16f7f301d1 100644
--- a/R/tm_t_pp_laboratory.R
+++ b/R/tm_t_pp_laboratory.R
@@ -55,7 +55,7 @@ template_laboratory <- function(dataname = "ANL",
tidyr::pivot_wider(names_from = INDEX, values_from = aval_anrind) %>%
dplyr::mutate(param_char := clean_description(.data[[param_char]]))
- labor_table_raw <- as_listing(
+ labor_table_raw <- rlistings::as_listing(
labor_table_raw,
key_cols = NULL,
default_formatting = list(all = fmt_config(align = "left"))
@@ -224,7 +224,7 @@ ui_g_laboratory <- function(id, ...) {
ns <- shiny::NS(id)
teal.widgets::standard_layout(
output = shiny::div(
- htmlOutput(ns("title")),
+ shiny::htmlOutput(ns("title")),
DT::DTOutput(outputId = ns("lab_values_table"))
),
encoding = shiny::div(
@@ -416,7 +416,7 @@ srv_g_laboratory <- function(id,
teal.code::eval_code(as.expression(labor_calls))
})
- output$title <- renderText({
+ output$title <- shiny::renderText({
paste("Patient ID:", all_q()[["pt_id"]], "
")
})