如何用Shiny交互式设置变量供R后续使用？寻求非全局变量方案

需求 #

希望用Shiny应用的交互组件（滑块、文本输入框、单选按钮等）替代脚本开头硬编码变量或readline(prompt = "Choose a value for your variable: ")的方式，让用户交互式设置变量值，供后续分析使用。目标是将该功能集成到R包中，要求方案稳健且能通过CRAN检查，理想使用方式是直接将返回值赋值给变量：

value_from_shiny <- shinyApp(ui, server)

现有实现及问题 #

全局变量方案 #

最初实现的最简Shiny应用如下，通过assign(..., envir = .GlobalEnv)或<<-将输入值写入全局环境：

library(shiny)
ui <- fluidPage(
  h3("Set the value for downstream analysis!"),
  sliderInput(inputId = "value", label="Value", min = 0, max = 10, value = 1),
  actionButton(inputId = "endsession", label = "Send to R")
)
server <- function(input, output){
  observeEvent(input$endsession, {
    # value_from_shiny <<- input$value
    assign("value_from_shiny", input$value, envir = .GlobalEnv)
    stopApp()
  })
}
shinyApp(ui, server)

该方案能正常运行，但全局变量会产生副作用，不符合CRAN对包的稳健性要求。

外部环境方案 #

尝试使用外部环境替代全局环境，减少副作用，但本质仍类似全局环境的方式：

external_env <- environment()
# 在Shiny server中
assign("value_from_shiny", input$value, envir = external_env)
# 后续调用
external_env$value_from_shiny

这是目前找到的相对更优的选择，但仍存在环境副作用问题。

疑问 #

• 是否存在更简便、无副作用的方式从Shiny应用返回值？
• Shiny是否本就不适合这类交互式变量设置的场景？<<-或外部环境方案已是当前最优解？

内容的提问来源于stack exchange，提问作者Dubukay