Create a set of prettier radio buttons used to select an item from a list.
awesomeRadio(
inputId,
label,
choices,
selected = NULL,
inline = FALSE,
status = "primary",
checkbox = FALSE,
width = NULL
)The input slot that will be used to access the value.
Display label for the control, or NULL for no label.
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)
The initially selected value (if not specified then defaults to the first value).
If TRUE, render the choices inline (i.e. horizontally).
Color of the buttons, a valid Bootstrap status : default, primary, info, success, warning, danger.
Logical, render radio like checkboxes (with a square shape).
The width of the input, e.g. 400px, or 100%.
A set of radio buttons that can be added to a UI definition.
## Only run examples in interactive R sessions
if (interactive()) {
ui <- fluidPage(
br(),
awesomeRadio(
inputId = "id1", label = "Make a choice:",
choices = c("graphics", "ggplot2")
),
verbatimTextOutput(outputId = "res1"),
br(),
awesomeRadio(
inputId = "id2", label = "Make a choice:",
choices = c("base", "dplyr", "data.table"),
inline = TRUE, status = "danger"
),
verbatimTextOutput(outputId = "res2")
)
server <- function(input, output, session) {
output$res1 <- renderPrint({
input$id1
})
output$res2 <- renderPrint({
input$id2
})
}
shinyApp(ui = ui, server = server)
}