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"]], "
") })