※ 引述《ardodo (米虫)》之铭言：
: ※ 引述《celestialgod (攸蓝)》之铭言：
: : 原谅我把它们合并再一起
: : R code: http://pastebin.com/PkQEtKVA
: : 重点在于 observe的运用
: : 随着input$brand的改变，去改变input$model的值
: 感谢版主帮我解决先前的问题，另外请教两个延伸问题：
: 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])
})
: 2.sliderInput能设定为区间(例我可以选择amount=2-10)，并且让我的output
: 显示为2-10的资料吗？
可以，一样用observe去调，只是你要两个sliderInput去调整显示的最大跟最小值
这个你自己玩玩看吧，或是有兴趣的版友可以写写看
: code在此，烦请赐教
: http://pastebin.com/t0XvW3wp