radioButtons3 {editData}

Create a side-by-side radioButtons

Description

Create a side-by-side radioButtons

Usage

radioButtons3(
  inputId,
  label,
  choices,
  bg = NULL,
  labelwidth = 100,
  inline = FALSE,
  align = "right",
  ...
)

Arguments

inputId

The input slot that will be used to access the value.

label

Display label for the control, or NULL for no label.

choices

List of values to select from

bg

The color of text

labelwidth

The width of the label in pixel

inline

If TRUE, render the choices inline (i.e. horizontally)

align

text align of label

...

arguments to be passed to radioButtons

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
  ui <- fluidPage(
         label3("Welcome"),
         radioButtons3("mydata", "mydata", choices=c("mtcars","iris")),
         verbatimTextOutput("value")
  )
  server <- function(input, output) {
        output$value <- renderText({ input$mydata })
  }
  shinyApp(ui, server)
}