diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index e24091b0..a4ad9844 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -40,8 +40,8 @@ #' library(dplyr) #' library(nestcolor) #' -#' ADSL <- rADSL -#' ADRS <- rADRS +#' ADSL <- osprey::rADSL +#' ADRS <- osprey::rADRS #' #' ADRS <- ADRS %>% #' dplyr::filter(PARAMCD == "LSTASDI" & DCSREAS == "Death") %>% @@ -71,7 +71,7 @@ #' ), #' bar_color_var = teal.transform::choices_selected( #' selected = "EOSSTT", -#' choices = c("EOSSTT", "ARM", "ARMCD", "ACTARM", "ACTARMCD", "AGEGR1", "SEX") +#' choices = c("EOSSTT", "ARM", "ARMCD", "ACTARM", "ACTARMCD", "SEX") #' ), #' sort_var = teal.transform::choices_selected( #' selected = "ACTARMCD", diff --git a/R/tm_g_waterfall.R b/R/tm_g_waterfall.R index c7b20641..5eabd5db 100644 --- a/R/tm_g_waterfall.R +++ b/R/tm_g_waterfall.R @@ -48,9 +48,9 @@ #' #' @examples #' library(nestcolor) -#' ADSL <- rADSL -#' ADRS <- rADRS -#' ADTR <- rADTR +#' ADSL <- osprey::rADSL +#' ADRS <- osprey::rADRS +#' ADTR <- osprey::rADTR #' #' ADSL$SEX <- factor(ADSL$SEX, levels = unique(ADSL$SEX)) #' diff --git a/man/tm_g_swimlane.Rd b/man/tm_g_swimlane.Rd index ac9055ec..c7000303 100644 --- a/man/tm_g_swimlane.Rd +++ b/man/tm_g_swimlane.Rd @@ -86,8 +86,8 @@ This is teal module that generates a \code{swimlane} plot (bar plot with markers library(dplyr) library(nestcolor) -ADSL <- rADSL -ADRS <- rADRS +ADSL <- osprey::rADSL +ADRS <- osprey::rADRS ADRS <- ADRS \%>\% dplyr::filter(PARAMCD == "LSTASDI" & DCSREAS == "Death") \%>\% @@ -117,7 +117,7 @@ app <- init( ), bar_color_var = teal.transform::choices_selected( selected = "EOSSTT", - choices = c("EOSSTT", "ARM", "ARMCD", "ACTARM", "ACTARMCD", "AGEGR1", "SEX") + choices = c("EOSSTT", "ARM", "ARMCD", "ACTARM", "ACTARMCD", "SEX") ), sort_var = teal.transform::choices_selected( selected = "ACTARMCD", diff --git a/man/tm_g_waterfall.Rd b/man/tm_g_waterfall.Rd index a0b64850..0667c00f 100644 --- a/man/tm_g_waterfall.Rd +++ b/man/tm_g_waterfall.Rd @@ -101,9 +101,9 @@ This is teal module that generates a waterfall plot for \code{ADaM} data } \examples{ library(nestcolor) -ADSL <- rADSL -ADRS <- rADRS -ADTR <- rADTR +ADSL <- osprey::rADSL +ADRS <- osprey::rADRS +ADTR <- osprey::rADTR ADSL$SEX <- factor(ADSL$SEX, levels = unique(ADSL$SEX))