※ 引述《celestialgod (攸蓝)》之铭言：
: ※ 引述《ardodo (米虫)》之铭言：
: : 感谢版主帮我解决先前的问题，另外请教两个延伸问题：
: : 1. 同样的一笔资料，我想要在selectInput筛选brand后，让sliderInput的amount范围
: : 能跟着selectInput有所变动(例我选择brand==s后，amount的滑动范围是4-8)
: 一样的方法去改，再server里面加这个就好
: amount = observe({
: input$brand
: if (input$brand=="all"){
: val = c(1, 20)
: } else if (input$brand=="s"){
: val = c(4, 8)
: } else if (input$brand=="w"){
: val = c(3, 10)
: }
: updateSliderInput(session, "amount", min = val[1], max = val[2])
: })
照着版大的指令修改后，目前我sliderinput的范围在我选择brand==w or brand==s
的情况下是正常的，但是我如果选择brand==all，范围变成10-20，这是错误的
不知道我应该从哪边修改呢？
以下是我的code
http://pastebin.com/MqjwBJBF