在R闪亮应用中设置反应值的默认值

library(shiny)

ui <- fluidPage(
  # 创建一个按钮，点击后会将反应值的默认值设置为"Hello World"
  actionButton("set_default", "Set Default Value"),
  
  # 显示当前反应值的默认值
  textOutput("default_value")
)

server <- function(input, output, session) {
  # 创建一个反应值对象，并设置默认值为NULL
  values <- reactiveValues(default_value = NULL)
  
  # 当按钮被点击时，将反应值的默认值设置为"Hello World"
  observeEvent(input$set_default, {
    values$default_value <- "Hello World"
  })
  
  # 显示当前反应值的默认值
  output$default_value <- renderText({
    values$default_value
  })
}

shinyApp(ui, server)