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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了使用inputBox的输出作为R Shiny中inputSlider的输入相关的知识,希望对你有一定的参考价值。

我计划创建一个包含输入框的应用程序,您可以在其中选择“方案”。根据选择的场景,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)

以上是关于使用inputBox的输出作为R Shiny中inputSlider的输入的主要内容,如果未能解决你的问题,请参考以下文章

在 Shiny 中,提交按钮没有运行

R Shiny 中的朴素贝叶斯实现

在 Shiny 中使用部分 textInput 作为 R 中的变量

如何使用操作按钮在 R Shiny 中显示和隐藏表格输出?

如何使用具有多个输出的 R Shiny moduleServer

在 R/Shiny 中将输出组件设置为空