会错误是因为你用unique，没有取最小跟最大出来 请直接用range就好 amount = observe({ input$brand if (input$brand=="all"){ val = range(df$amount) } else{ val = range(df$amount[df$brand==input$brand]) } updateSliderInput(session, "amount", min = val[1], max = val[2]) }) ※ 引述《ardodo (米虫)》之铭言： : ※ 引述《celestialgod (攸蓝)》之铭言： : : 一样的方法去改，再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 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.205.27.107 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1437383583.A.BC0.html