removing pacakge:: call from example and fixing example.

Author: kartikeyakirar

R/choices_labeled.R

@@ -21,17 +21,18 @@
 #'
 #' @examples
 #' library(shiny)
+#' library(teal.data)
 #'
 #' ADSL <- rADSL
 #' ADTTE <- rADTTE
 #'
-#' choices1 <- choices_labeled(names(ADSL), teal.data::col_labels(ADSL, fill = FALSE))
+#' choices1 <- choices_labeled(names(ADSL), col_labels(ADSL, fill = FALSE))
 #' choices2 <- choices_labeled(ADTTE$PARAMCD, ADTTE$PARAM)
 #'
 #' # if only a subset of variables are needed, use subset argument
 #' choices3 <- choices_labeled(
 #'   names(ADSL),
-#'   teal.data::col_labels(ADSL, fill = FALSE),
+#'   col_labels(ADSL, fill = FALSE),
 #'   subset = c("ARMCD", "ARM")
 #' )
 #'
@@ -52,9 +53,10 @@
 #'     selected = choices3[1]
 #'   )
 #' )
+#' server <- function(input, output) {}
 #'
 #' if (interactive()) {
-#'   shinyApp(ui = ui, server = function(input, output) {})
+#'   shinyApp(ui, server)
 #' }
 #' @export
 #'
@@ -144,14 +146,16 @@ choices_labeled <- function(choices, labels, subset = NULL, types = NULL) {
 #' @return Named `character` vector with additional attributes or `delayed_data` object.
 #'
 #' @examples
+#' library(teal.data)
+#'
 #' ADRS <- rADRS
 #' variable_choices(ADRS)
 #' variable_choices(ADRS, subset = c("PARAM", "PARAMCD"))
 #' variable_choices(ADRS, subset = c("", "PARAM", "PARAMCD"))
 #' variable_choices(
 #'   ADRS,
 #'   subset = c("", "PARAM", "PARAMCD"),
-#'   key = teal.data::default_cdisc_join_keys["ADRS", "ADRS"]
+#'   key = default_cdisc_join_keys["ADRS", "ADRS"]
 #' )
 #'
 #' # delayed version

R/choices_selected.R

@@ -39,13 +39,14 @@ no_select_keyword <- "-- no selection --"
 #'
 #' @examples
 #' library(shiny)
+#' library(teal.widgets)
 #'
 #' # all_choices example - semantically the same objects
 #' choices_selected(choices = letters, selected = all_choices())
 #' choices_selected(choices = letters, selected = letters)
 #'
 #' choices_selected(
-#'   choices = stats::setNames(LETTERS[1:5], paste("Letter", LETTERS[1:5])),
+#'   choices = setNames(LETTERS[1:5], paste("Letter", LETTERS[1:5])),
 #'   selected = "C"
 #' )
 #'
@@ -112,14 +113,16 @@ no_select_keyword <- "-- no selection --"
 #' )
 #'
 #' ui <- fluidPage(
-#'   teal.widgets::optionalSelectInput(
+#'   optionalSelectInput(
 #'     inputId = "id",
 #'     choices = cs$choices,
 #'     selected = cs$selected
 #'   )
 #' )
+#'
+#' server <- function(input, output, session) {}
 #' if (interactive()) {
-#'   shinyApp(ui, server = function(input, output, session) {})
+#'   shinyApp(ui, server)
 #' }
 #' @export
 #'

R/data_extract_filter_module.R

@@ -142,13 +142,14 @@ data_extract_filter_srv <- function(id, datasets, filter) {
 #' @return named `list` with two slots `choices` and `selected`.
 #'
 #' @examples
+#' library(shiny)
 #' # use non-exported function from teal.transform
 #' get_initial_filter_values <- getFromNamespace("get_initial_filter_values", "teal.transform")
 #'
-#' filtered_data_list <- list(iris = shiny::reactive(utils::head(iris)))
+#' filtered_data_list <- list(iris = reactive(head(iris)))
 #' filter <- filter_spec(vars = colnames(iris)[1])
 #' filter$dataname <- "iris"
-#' shiny::isolate(
+#' isolate(
 #'   get_initial_filter_values(filter = filter, datasets = filtered_data_list)
 #' )
 #'