Create a Bootstrap 386 radio buttons
radio_input_386( inputId, label, choices = NULL, selected = NULL, width = NULL, choiceNames = NULL, choiceValues = NULL )
inputId | The |
---|---|
label | Display label for the control, or |
choices | List of values to select from (if elements of the list are
named then that name rather than the value is displayed to the user). If
this argument is provided, then |
selected | The initially selected value (if not specified then defaults to the first value) |
width | The width of the input, e.g. |
choiceNames | List of names and values, respectively, that
are displayed to the user in the app and correspond to the each choice (for
this reason, |
choiceValues | List of names and values, respectively, that
are displayed to the user in the app and correspond to the each choice (for
this reason, |
if (interactive()) { library(shiny) library(shiny386) ui <- page_386( radio_input_386("dist", "Distribution type:", c("Normal" = "norm", "Uniform" = "unif", "Log-normal" = "lnorm", "Exponential" = "exp")), plotOutput("distPlot") ) server <- function(input, output, session) { output$distPlot <- renderPlot({ dist <- switch(input$dist, norm = rnorm, unif = runif, lnorm = rlnorm, exp = rexp, rnorm) hist(dist(500)) }) } shinyApp(ui, server) }