shinyWidget :: radioGroupButtons

Published by onesixx on

 

library(shinyWidgets)

server <- function(input, output, session) {
  output$val <- renderText({
    input$rdoG_letter
  })
}

ui <- fluidPage(
  fluidRow( 
    column(width=3,
      radioGroupButtons("rdoG_letter", label="Choose one:", choices=list("A"=1,"B"=2,"C"=3), selected=3,
                         width="100%" #individual = T, direction = "vertical", status = "danger"
                      )),
    column(width=9,
      verbatimTextOutput("val"))
  )
)

shinyApp(ui, server)

radioGroupButtons(inputId, label = NULL, choices = NULL, selected = NULL,
            status = "default", size = "normal", checkIcon = list(), choiceNames = NULL, choiceValues = NULL,
            individual = FALSE, direction = "horizontal", justified = FALSE, width = NULL, )
updateRadioGroupButtons(session, inputId, label = NULL, choices = NULL, selected = NULL,
            status = "default", size = "normal", checkIcon = list(), choiceNames = NULL, choiceValues = NULL)

 

 

Categories: Shiny

onesixx

Blog Owner

Leave a Reply

Your email address will not be published.