choices_labeled {teal.transform} | R Documentation |
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 |
( |
labels |
( |
subset |
( |
types |
( |
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)
}