※ 引述《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