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

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)