使用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 中使用部分 textInput 作为 R 中的变量