单选按钮

你可以创建一组用于从列表中选择项目的单选按钮。

可以更改设置:

  • selected:最初选择的值(没有选择的字符(0))
  • 内联:水平或垂直
  • 宽度

也可以添加 HTML。

library(shiny)

ui <- fluidPage(    
  radioButtons("radio", 
               label = HTML('<FONT color="red"><FONT size="5pt">Welcome</FONT></FONT><br> <b>Your favorite color is red ?</b>'),
               choices = list("TRUE" = 1, "FALSE" = 2),
               selected = 1,
               inline = T,
               width = "100%"),      
  fluidRow(column(3, textOutput("value")))) 

server <- function(input, output){
  output$value <- renderPrint({
    if(input$radio == 1){return('Great !')}
     else{return("Sorry !")}})}

shinyApp(ui = ui, server = server)

StackOverflow 文档