如何根据所选的单选按钮在Shiny R中显示滑块输入

在Shiny R中，可以使用radioButtons函数创建单选按钮，并使用renderUI函数根据所选的单选按钮值动态显示滑块输入。

下面是一个完整的示例代码：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      radioButtons("input_type", "选择输入类型:",
                   choices = c("整数" = "integer", "小数" = "numeric"))
    ),
    mainPanel(
      uiOutput("slider_input")
    )
  )
)

server <- function(input, output) {
  output$slider_input <- renderUI({
    if (input$input_type == "integer") {
      sliderInput("slider", "滑块输入:",
                  min = 0, max = 100, value = 50, step = 1)
    } else if (input$input_type == "numeric") {
      sliderInput("slider", "滑块输入:",
                  min = 0, max = 1, value = 0.5, step = 0.1)
    }
  })
}

shinyApp(ui, server)

在上述代码中，我们首先在UI部分使用radioButtons函数创建了一个单选按钮，选项为"整数"和"小数"。然后，在服务器端使用renderUI函数根据所选的单选按钮值动态生成滑块输入。如果选择了"整数"，则创建一个范围为0到100的整数滑块输入；如果选择了"小数"，则创建一个范围为0到1的小数滑块输入。

这样，根据所选的单选按钮，在Shiny R中就可以显示相应的滑块输入。