在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中就可以显示相应的滑块输入。
领取专属 10元无门槛券
手把手带您无忧上云