diff --git a/R/tm_g_gh_boxplot.R b/R/tm_g_gh_boxplot.R index 7f95d04b..40a33a16 100644 --- a/R/tm_g_gh_boxplot.R +++ b/R/tm_g_gh_boxplot.R @@ -54,10 +54,10 @@ #' library(stringr) #' #' # use non-exported function from goshawk -#' h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") +#' .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" @@ -65,7 +65,7 @@ #' set.seed(1) #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate( #' AVISITCD = case_when( @@ -86,9 +86,9 @@ #' ARMCD == "ARM B" ~ 2, #' ARMCD == "ARM A" ~ 3 #' ), -#' ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), +#' ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), #' ARM = factor(ARM) %>% reorder(TRTORD), -#' ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), +#' ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), #' ACTARM = factor(ACTARM) %>% reorder(TRTORD), #' ANRLO = 50, #' ANRHI = 75 @@ -105,20 +105,17 @@ #' )) %>% #' ungroup() #' -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] -#' attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] +#' attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] #' attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" #' attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" #' #' # add LLOQ and ULOQ variables -#' ALB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") +#' ALB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") #' ADLB <- left_join(ADLB, ALB_LOQS, by = "PARAM") #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -308,7 +305,7 @@ srv_g_boxplot <- function(id, moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.goshawk") output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_y <- teal.transform::resolve_delayed(module_args$yaxis_var, env) resolved_param <- teal.transform::resolve_delayed(module_args$param, env) @@ -508,7 +505,7 @@ srv_g_boxplot <- function(id, joined_qenvs <- reactive({ req(create_plot(), create_table()) - teal.code::join(create_plot(), create_table()) + c(create_plot(), create_table()) }) code <- reactive(teal.code::get_code(joined_qenvs())) diff --git a/R/tm_g_gh_correlationplot.R b/R/tm_g_gh_correlationplot.R index 36f15f0b..92bf2f0a 100644 --- a/R/tm_g_gh_correlationplot.R +++ b/R/tm_g_gh_correlationplot.R @@ -57,22 +57,22 @@ #' library(stringr) #' #' # use non-exported function from goshawk -#' h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") +#' .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" #' ) -#' color_manual <- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C") +#' .color_manual <- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C") #' # assign LOQ flag symbols: circles for "N" and triangles for "Y", squares for "NA" -#' shape_manual <- c("N" = 1, "Y" = 2, "NA" = 0) +#' .shape_manual <- c("N" = 1, "Y" = 2, "NA" = 0) #' #' set.seed(1) #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate(AVISITCD = case_when( #' AVISIT == "SCREENING" ~ "SCR", @@ -102,7 +102,7 @@ #' ifelse(grepl("A", ARMCD), 3, NA) #' ) #' )) %>% -#' mutate(ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))])) %>% +#' mutate(ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))])) %>% #' mutate(ARM = factor(ARM) %>% #' reorder(TRTORD)) %>% #' mutate( @@ -130,19 +130,16 @@ #' paste(">", round(runif(1, min = 70, max = 75))), LBSTRESC #' )) %>% #' ungroup() -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] #' attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" #' attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" #' #' # add LLOQ and ULOQ variables -#' ADLB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") +#' ADLB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") #' ADLB <- left_join(ADLB, ADLB_LOQS, by = "PARAM") #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -374,7 +371,7 @@ srv_g_correlationplot <- function(id, moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.goshawk") output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x_param <- teal.transform::resolve_delayed(module_args$xaxis_param, env) resolved_x_var <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_y_param <- teal.transform::resolve_delayed(module_args$yaxis_param, env) diff --git a/R/tm_g_gh_density_distribution_plot.R b/R/tm_g_gh_density_distribution_plot.R index 1227bca6..9f5ed2db 100644 --- a/R/tm_g_gh_density_distribution_plot.R +++ b/R/tm_g_gh_density_distribution_plot.R @@ -40,14 +40,14 @@ #' library(stringr) #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" #' ) #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate( #' AVISITCD = case_when( @@ -68,19 +68,17 @@ #' ARMCD == "ARM B" ~ 2, #' ARMCD == "ARM A" ~ 3 #' ), -#' ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), +#' ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), #' ARM = factor(ARM) %>% reorder(TRTORD), -#' ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), +#' ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), #' ACTARM = factor(ACTARM) %>% reorder(TRTORD) #' ) #' -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] -#' attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] +#' attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -256,7 +254,7 @@ srv_g_density_distribution_plot <- function(id, # nolint moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.goshawk") output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_param <- teal.transform::resolve_delayed(module_args$param, env) resolved_trt <- teal.transform::resolve_delayed(module_args$trt_group, env) @@ -416,7 +414,7 @@ srv_g_density_distribution_plot <- function(id, # nolint joined_qenvs <- reactive({ req(create_plot(), create_table()) - teal.code::join(create_plot(), create_table()) + c(create_plot(), create_table()) }) code <- reactive(teal.code::get_code(joined_qenvs())) diff --git a/R/tm_g_gh_lineplot.R b/R/tm_g_gh_lineplot.R index 044419ed..66e88793 100644 --- a/R/tm_g_gh_lineplot.R +++ b/R/tm_g_gh_lineplot.R @@ -60,7 +60,7 @@ #' library(nestcolor) #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" @@ -68,7 +68,7 @@ #' #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate( #' AVISITCD = case_when( @@ -89,18 +89,16 @@ #' ARMCD == "ARM B" ~ 2, #' ARMCD == "ARM A" ~ 3 #' ), -#' ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), +#' ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), #' ARM = factor(ARM) %>% reorder(TRTORD), -#' ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), +#' ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), #' ACTARM = factor(ACTARM) %>% reorder(TRTORD) #' ) -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] -#' attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] +#' attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -349,7 +347,7 @@ srv_lineplot <- function(id, ns <- session$ns output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_y <- teal.transform::resolve_delayed(module_args$yaxis_var, env) resolved_param <- teal.transform::resolve_delayed(module_args$param, env) diff --git a/R/tm_g_gh_scatterplot.R b/R/tm_g_gh_scatterplot.R index da82442f..b25283e3 100644 --- a/R/tm_g_gh_scatterplot.R +++ b/R/tm_g_gh_scatterplot.R @@ -45,7 +45,7 @@ #' library(stringr) #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" @@ -53,7 +53,7 @@ #' #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate( #' AVISITCD = case_when( @@ -74,18 +74,16 @@ #' ARMCD == "ARM B" ~ 2, #' ARMCD == "ARM A" ~ 3 #' ), -#' ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), +#' ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), #' ARM = factor(ARM) %>% reorder(TRTORD), -#' ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), +#' ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), #' ACTARM = factor(ACTARM) %>% reorder(TRTORD) #' ) -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] -#' attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] +#' attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' #' app <- init( @@ -257,7 +255,7 @@ srv_g_scatterplot <- function(id, moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.goshawk") output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_y <- teal.transform::resolve_delayed(module_args$yaxis_var, env) resolved_param <- teal.transform::resolve_delayed(module_args$param, env) diff --git a/R/tm_g_gh_spaghettiplot.R b/R/tm_g_gh_spaghettiplot.R index 48379ef8..1da56159 100644 --- a/R/tm_g_gh_spaghettiplot.R +++ b/R/tm_g_gh_spaghettiplot.R @@ -63,10 +63,10 @@ #' library(stringr) #' #' # use non-exported function from goshawk -#' h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") +#' .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") #' #' # original ARM value = dose value -#' arm_mapping <- list( +#' .arm_mapping <- list( #' "A: Drug X" = "150mg QD", #' "B: Placebo" = "Placebo", #' "C: Combination" = "Combination" @@ -74,7 +74,7 @@ #' set.seed(1) #' ADSL <- rADSL #' ADLB <- rADLB -#' var_labels <- lapply(ADLB, function(x) attributes(x)$label) +#' .var_labels <- lapply(ADLB, function(x) attributes(x)$label) #' ADLB <- ADLB %>% #' mutate( #' AVISITCD = case_when( @@ -95,9 +95,9 @@ #' ARMCD == "ARM B" ~ 2, #' ARMCD == "ARM A" ~ 3 #' ), -#' ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), +#' ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), #' ARM = factor(ARM) %>% reorder(TRTORD), -#' ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), +#' ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), #' ACTARM = factor(ACTARM) %>% reorder(TRTORD), #' ANRLO = 30, #' ANRHI = 75 @@ -111,19 +111,17 @@ #' paste(">", round(runif(1, min = 70, max = 75))), LBSTRESC #' )) %>% #' ungroup() -#' attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] -#' attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] +#' attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] +#' attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] #' attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" #' attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" #' #' # add LLOQ and ULOQ variables -#' ALB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") +#' ALB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") #' ADLB <- left_join(ADLB, ALB_LOQS, by = "PARAM") #' }) #' -#' datanames <- c("ADSL", "ADLB") -#' datanames(data) <- datanames -#' join_keys(data) <- default_cdisc_join_keys[datanames] +#' join_keys(data) <- default_cdisc_join_keys[names(data)] #' #' app <- init( #' data = data, @@ -367,7 +365,7 @@ srv_g_spaghettiplot <- function(id, moduleServer(id, function(input, output, session) { teal.logger::log_shiny_input_changes(input, namespace = "teal.goshawk") output$axis_selections <- renderUI({ - env <- shiny::isolate(as.list(data()@env)) + env <- shiny::isolate(as.list(data())) resolved_x <- teal.transform::resolve_delayed(module_args$xaxis_var, env) resolved_y <- teal.transform::resolve_delayed(module_args$yaxis_var, env) resolved_param <- teal.transform::resolve_delayed(module_args$param, env) diff --git a/man/tm_g_gh_boxplot.Rd b/man/tm_g_gh_boxplot.Rd index ae3d097e..c9669c0a 100644 --- a/man/tm_g_gh_boxplot.Rd +++ b/man/tm_g_gh_boxplot.Rd @@ -113,10 +113,10 @@ data <- within(data, { library(stringr) # use non-exported function from goshawk - h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") + .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" @@ -124,7 +124,7 @@ data <- within(data, { set.seed(1) ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate( AVISITCD = case_when( @@ -145,9 +145,9 @@ data <- within(data, { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) \%>\% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) \%>\% reorder(TRTORD), ANRLO = 50, ANRHI = 75 @@ -164,20 +164,17 @@ data <- within(data, { )) \%>\% ungroup() - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" # add LLOQ and ULOQ variables - ALB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") + ALB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") ADLB <- left_join(ADLB, ALB_LOQS, by = "PARAM") }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames - -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, diff --git a/man/tm_g_gh_correlationplot.Rd b/man/tm_g_gh_correlationplot.Rd index ae159083..0890823f 100644 --- a/man/tm_g_gh_correlationplot.Rd +++ b/man/tm_g_gh_correlationplot.Rd @@ -133,22 +133,22 @@ data <- within(data, { library(stringr) # use non-exported function from goshawk - h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") + .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" ) - color_manual <- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C") + .color_manual <- c("150mg QD" = "#000000", "Placebo" = "#3498DB", "Combination" = "#E74C3C") # assign LOQ flag symbols: circles for "N" and triangles for "Y", squares for "NA" - shape_manual <- c("N" = 1, "Y" = 2, "NA" = 0) + .shape_manual <- c("N" = 1, "Y" = 2, "NA" = 0) set.seed(1) ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate(AVISITCD = case_when( AVISIT == "SCREENING" ~ "SCR", @@ -178,7 +178,7 @@ data <- within(data, { ifelse(grepl("A", ARMCD), 3, NA) ) )) \%>\% - mutate(ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))])) \%>\% + mutate(ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))])) \%>\% mutate(ARM = factor(ARM) \%>\% reorder(TRTORD)) \%>\% mutate( @@ -206,19 +206,16 @@ data <- within(data, { paste(">", round(runif(1, min = 70, max = 75))), LBSTRESC )) \%>\% ungroup() - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" # add LLOQ and ULOQ variables - ADLB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") + ADLB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") ADLB <- left_join(ADLB, ADLB_LOQS, by = "PARAM") }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames - -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, diff --git a/man/tm_g_gh_density_distribution_plot.Rd b/man/tm_g_gh_density_distribution_plot.Rd index b5338b0c..37520ad1 100644 --- a/man/tm_g_gh_density_distribution_plot.Rd +++ b/man/tm_g_gh_density_distribution_plot.Rd @@ -89,14 +89,14 @@ data <- within(data, { library(stringr) # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" ) ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate( AVISITCD = case_when( @@ -117,19 +117,17 @@ data <- within(data, { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) \%>\% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) \%>\% reorder(TRTORD) ) - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, diff --git a/man/tm_g_gh_lineplot.Rd b/man/tm_g_gh_lineplot.Rd index c307d9b6..99eae84b 100644 --- a/man/tm_g_gh_lineplot.Rd +++ b/man/tm_g_gh_lineplot.Rd @@ -132,7 +132,7 @@ data <- within(data, { library(nestcolor) # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" @@ -140,7 +140,7 @@ data <- within(data, { ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate( AVISITCD = case_when( @@ -161,18 +161,16 @@ data <- within(data, { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) \%>\% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) \%>\% reorder(TRTORD) ) - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, diff --git a/man/tm_g_gh_scatterplot.Rd b/man/tm_g_gh_scatterplot.Rd index e017419a..0875f92c 100644 --- a/man/tm_g_gh_scatterplot.Rd +++ b/man/tm_g_gh_scatterplot.Rd @@ -93,7 +93,7 @@ data <- within(data, { library(stringr) # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" @@ -101,7 +101,7 @@ data <- within(data, { ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate( AVISITCD = case_when( @@ -122,18 +122,16 @@ data <- within(data, { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) \%>\% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) \%>\% reorder(TRTORD) ) - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( diff --git a/man/tm_g_gh_spaghettiplot.Rd b/man/tm_g_gh_spaghettiplot.Rd index 27a4bdf0..ac816ff9 100644 --- a/man/tm_g_gh_spaghettiplot.Rd +++ b/man/tm_g_gh_spaghettiplot.Rd @@ -134,10 +134,10 @@ data <- within(data, { library(stringr) # use non-exported function from goshawk - h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") + .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" @@ -145,7 +145,7 @@ data <- within(data, { set.seed(1) ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB \%>\% mutate( AVISITCD = case_when( @@ -166,9 +166,9 @@ data <- within(data, { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) \%>\% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) \%>\% reorder(TRTORD), ANRLO = 30, ANRHI = 75 @@ -182,19 +182,17 @@ data <- within(data, { paste(">", round(runif(1, min = 70, max = 75))), LBSTRESC )) \%>\% ungroup() - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" # add LLOQ and ULOQ variables - ALB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") + ALB_LOQS <- .h_identify_loq_values(ADLB, "LOQFL") ADLB <- left_join(ADLB, ALB_LOQS, by = "PARAM") }) -datanames <- c("ADSL", "ADLB") -datanames(data) <- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- init( data = data, diff --git a/tests/testthat/helper-module-utils.R b/tests/testthat/helper-module-utils.R index 7405ead5..2301d7ac 100644 --- a/tests/testthat/helper-module-utils.R +++ b/tests/testthat/helper-module-utils.R @@ -7,10 +7,10 @@ get_test_data <- function() { library(stringr) # use non-exported function from goshawk - h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") + .h_identify_loq_values <- getFromNamespace("h_identify_loq_values", "goshawk") # original ARM value = dose value - arm_mapping <- list( + .arm_mapping <- list( "A: Drug X" = "150mg QD", "B: Placebo" = "Placebo", "C: Combination" = "Combination" @@ -18,7 +18,7 @@ get_test_data <- function() { set.seed(1) ADSL <- rADSL ADLB <- rADLB - var_labels <- lapply(ADLB, function(x) attributes(x)$label) + .var_labels <- lapply(ADLB, function(x) attributes(x)$label) ADLB <- ADLB %>% mutate( AVISITCD = case_when( @@ -39,9 +39,9 @@ get_test_data <- function() { ARMCD == "ARM B" ~ 2, ARMCD == "ARM A" ~ 3 ), - ARM = as.character(arm_mapping[match(ARM, names(arm_mapping))]), + ARM = as.character(.arm_mapping[match(ARM, names(.arm_mapping))]), ARM = factor(ARM) %>% reorder(TRTORD), - ACTARM = as.character(arm_mapping[match(ACTARM, names(arm_mapping))]), + ACTARM = as.character(.arm_mapping[match(ACTARM, names(.arm_mapping))]), ACTARM = factor(ACTARM) %>% reorder(TRTORD), ANRLO = 50, ANRHI = 75 @@ -58,8 +58,8 @@ get_test_data <- function() { )) %>% ungroup() - attr(ADLB[["ARM"]], "label") <- var_labels[["ARM"]] - attr(ADLB[["ACTARM"]], "label") <- var_labels[["ACTARM"]] + attr(ADLB[["ARM"]], "label") <- .var_labels[["ARM"]] + attr(ADLB[["ACTARM"]], "label") <- .var_labels[["ACTARM"]] attr(ADLB[["ANRLO"]], "label") <- "Analysis Normal Range Lower Limit" attr(ADLB[["ANRHI"]], "label") <- "Analysis Normal Range Upper Limit" @@ -67,9 +67,7 @@ get_test_data <- function() { ALB_LOQS <- h_identify_loq_values(ADLB, "LOQFL") ADLB <- left_join(ADLB, ALB_LOQS, by = "PARAM") }) - datanames <- c("ADSL", "ADLB") - datanames(data) <- datanames - join_keys(data) <- default_cdisc_join_keys[datanames] + join_keys(data) <- default_cdisc_join_keys[names(data)] data } # nolint end diff --git a/vignettes/teal-goshawk.Rmd b/vignettes/teal-goshawk.Rmd index 5b881445..69a5c5d3 100644 --- a/vignettes/teal-goshawk.Rmd +++ b/vignettes/teal-goshawk.Rmd @@ -73,9 +73,7 @@ data <- within(data, { ) }) -datanames <- c("ADSL", "ADLB") -datanames(data)<- datanames -join_keys(data) <- default_cdisc_join_keys[datanames] +join_keys(data) <- default_cdisc_join_keys[names(data)] app <- teal::init( data = data,