r - 如何在Shiny Application的onStart参数中设置全局变量值

Question

我正在尝试使用 R 包中的 ShinyApp 函数的 onStart 参数来设置全局变量，而不是使用 global.R 文件。所以，格式将是

shinyApp(onStart = ..., ui = ..., server = ...)

但是，我似乎无法设置全局变量。例如，如果我执行以下操作:

shinyApp(
    onStart = function() { 
          temp1 <- 2
          temp2 <- 3
          temp3 <- 4
    },
    ui = fluidPage(
         titlePanel("test"),
         mainPanel(uiOutput("test_slider"))),
    server = function(input, output, session) {
         output$test_slider <- renderUI({
         sliderInput("test_slider",
                     "Testing",
                     min = 0,
                     max = temp1 + temp2 + temp3 + temp4,
                     value = 0

         )
      })
    }
)

当我这样做时，我收到错误“找不到对象 temp1”。我不太确定如何使这项工作，所以任何建议或解决方案将不胜感激!

Answer 1

要分配全局变量，您可以使用 <<-例如:

temp1 <<- 2