R Shiny 中有全局变量吗

R Shiny中的全局变量

R
# global.R
# 创建全局变量
global_number <- 0

R
# app.R
# 加载全局变量文件
source("global.R")
# 定义Shiny应用程序
ui <- fluidPage(
  # 显示全局变量的值
  h2("全局变量的值:"),
  verbatimTextOutput("global_value"),
  
  # 修改全局变量的按钮
  actionButton("increase_button", "增加全局变量的值")
)
server <- function(input, output) {
  # 显示全局变量的值
  output$global_value <- renderPrint({
    global_number
  })
  
  # 增加全局变量的值
  observeEvent(input$increase_button, {
    global_number <<- global_number + 1
  })
}
# 运行Shiny应用程序
shinyApp(ui, server)