choices_labeled: Set "<choice>:<label>" type of names

In teal.transform: Functions for Extracting and Merging Data in the 'teal' Framework

Set "⁠<choice>:<label>⁠" type of names

Description

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

Usage

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

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

Arguments

choices	(character or factor or numeric or logical) vector.
labels	(character) vector containing labels to be applied to choices. If NA then "Label Missing" will be used.
subset	(character or factor or numeric or logical) 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	(character) vector containing the types of the columns to be used for applying the appropriate icons to the choices_selected drop down box (e.g. "numeric").
x	an object used to select a method.
...	further arguments passed to or from other methods.

Details

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

Value

Named character vector.

Methods (by generic)

• print(choices_labeled): Print choices_labeled object

Examples

library(shiny)
library(teal.data)

ADSL <- teal.transform::rADSL
ADTTE <- teal.transform::rADTTE

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),
  col_labels(ADSL, fill = FALSE),
  subset = c("ARMCD", "ARM")
)

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) {}

if (interactive()) {
  shinyApp(ui, server)
}

teal.transform documentation built on May 29, 2024, 5:06 a.m.