Set "<choice>:<label>" type of Names — choices

This is often useful for choices_selected as it marks up the dropdown boxes for shiny::selectInput().

Usage

choices_labeled(choices, labels, subset = NULL, types = NULL)

# S3 method for choices_labeled
print(x, ...)

Arguments

choices: a character / numeric / logical vector
labels: character vector containing labels to be applied to choices. If NA then "Label Missing" will be used.
subset: a vector that is a subset of choices. This is useful if only a few variables need to be named. If this argument is used, the returned vector will match its order.
types: vector containing the types of the columns to be used for applying the appropriate icons to the choices_selected drop down box
x: an object used to select a method.
...: further arguments passed to or from other methods.

Value

a named character vector

Details

If either choices or labels are factors, they are coerced to character. Duplicated elements from choices get removed.

Examples

library(shiny)
library(scda)
#> 

ADSL <- synthetic_cdisc_data("latest")$adsl
ADTTE <- synthetic_cdisc_data("latest")$adtte
choices1 <- choices_labeled(names(ADSL), formatters::var_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),
  formatters::var_labels(ADSL, fill = FALSE),
  subset = c("ARMCD", "ARM")
)
if (FALSE) {
shinyApp(
  ui = fluidPage(
    selectInput("c1",
      label = "Choices from ADSL",
      choices = choices1,
      selected = choices1[1]
    ),
    selectInput("c2",
      label = "Choices from ADTTE",
      choices = choices2,
      selected = choices2[1]
    ),
    selectInput("c3",
      label = "Arm choices from ADSL",
      choices = choices3,
      selected = choices3[1]
    )
  ),
  server = function(input, output) {}
)
}