閃亮的服務器actionButton和sliderInput

Question

閃亮，我想有一個actionButton將sliderInput設置爲預定義的值。

的 「自然之道」 將有類似

input$myslider <- eventReactive(input$mybutton,{ 
    15432 
}) 

在shinyServer功能

。 這不起作用，而且當我使用<<-而不是<-

有沒有辦法實現我想要的？

Answer 1

加入

shinyServer(function(input, output,session) { 

    observeEvent(input$reset, 
       { 
       updateSliderInput(session,"votesshifted",value=15432) 
       }) 

，並添加在ui.R 的actionButton("reset","Reset")解決我的問題改變server.R。