R闪亮：如何通过复选框禁用/启用滑块？

编程问答 2022-08-15

问题描述

以下代码生成了一个包含三个滑块和三个复选框的示例。

如果选中一个复选框，则下面的滑块应被移除。这意味着所选的值不应再由滑块修改。

此外，所有滑块值的总和不应扩展最大值，在这种情况下为10。

library(shiny)

u <- shinyUI(fluidPage(
    titlePanel("title panel"),sidebarLayout(position = "left",sidebarPanel("sidebar panel",checkboxInput("check1","disable/enable",value = T),sliderInput("slider1","value 1",min=1,max=10,value=3),checkboxInput("check2",value = F),sliderInput("slider2","Value 2",checkboxInput("check3",sliderInput("slider3","Value 3",value=3)
                  ),mainPanel("main panel")
                  )))

s <- shinyServer(function(input,output){})
shinyApp(u,s)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

checkboxrrshinyslider