Question

以下是代码的一部分：

ui.r

orbeon.log

server.r

sidebarPanel(
   sliderInput("days", "Analyzing days", min = 22, max = 132, value = 25)),

结果，控制台出错：

var<-input$days

并自动关闭应用程序。我需要为 sliderInput 变量赋值，这样我就可以采用不同的方式对其进行操作。 我该怎么做？

Answer 1

您需要将变量分配给可以处理用户更改值的内容，这称为响应环境。您可以使用reactive()或类似observeEvent()之类的内容来完成此操作。

server<-function(input,output){

var = NULL

# Turns variable into reactive variable.
makeReactiveBinding("var")

# Make reactive environment and assign variable based on value
observeEvent(input$days, { 
var<<-input$days
})

} #close server

credit：How to plot selected input from selectInput() function in shiny? @Scrappy

Answer 2

如果没有看到剩下的代码，我们只能猜测。如果这是唯一的代码，它显然不会起作用;）

也许这个小例子可以说明一些基础知识：

library(shiny)

ui <- fluidPage(
  sliderInput("days", "Analyzing days", min = 22, max = 132, value = 25),
  verbatimTextOutput("slidInp")
)

server <- function(input, output){
  output$slidInp <- renderPrint({
    var <- input$days

    var2 <- c(1:as.numeric(var))

    print(var2)
  })
}

shinyApp(ui, server)

如何从sliderInput获取值并将它们写入变量？

2 个答案: