使用inputBox的输出作为R Shiny中inputSlider的输入

Question

我计划创建一个包含输入框的应用程序，您可以在其中选择“方案”。根据选择的场景，Box下面的inputSlider应该更改其初始值，但是仍然可以更改此值并使用它进行进一步计算。我试图打印初始值以将其与滑块进行比较，但即使通过初始值更改，滑块也不会改变。这是有道理的，因为inputSlider不是被动的，而上面的初始值的打印是......现在我不知道如何将“反应性”带入Slider。有什么建议？

这是我已经尝试过的：

 library(shiny)
library(DT)

dropinput <- 1

ui <- fluidPage(

inputPanel(
#InputBox
selectInput(inputId = "szenarios", label="Szenarios:", 
            choices=c("calculated"="calculated","shiny"="shiny"))), 

textOutput("dropinput"),  #Print of the Inital value of the sliderInput calculated from the Output of the Box

sliderInput("EU_slider_DF", label = "EU_slider", min = 0, 
                          max = 3,step=0.001, value =dropinput))


server<-function(input,output){
  output$dropdown<-renderPrint({input$szenarios})
  output$dropinput<- reactive({if (input$szenarios=="shiny") dropinput<- 2     else if (input$szenarios=="calculated") dropinput<- 3 })}



#Load the App
shinyApp( ui = ui, server = server)