r - 将 R Shiny 应用程序保存为函数，并将参数传递给 Shiny 的应用程序

Question

我正在构建一个 R 包，它具有启动 Shiny 应用程序的功能。我希望该函数包含一个要传递给应用程序的参数。我发现唯一可行的方法是设置全局值，然后让应用程序使用该全局值:

launch_app <- function(MonteCarlo=1000){
  MonteCarlo_global <<- MonteCarlo
  shiny::runApp(appDir = system.file("app.R", package="my_package"))
}

有没有更好的方法来传递我的“MonteCarlo”参数以在整个 Shiny 的应用程序中使用？请注意，我试图避免简单地将“MonteCarlo”作为应用程序本身的输入选项之一。我宁愿让用户不用担心。但是，如果需要，知识渊博的用户可以在启动应用程序时控制它。

Answer 1

我目前使用 shinyOptions 和 getShinyOption 将参数传递给 Shiny 的应用程序。

此外，我直接source shinyApp 的输出，而不是像这样取消runApp

## file: R/launch_app.R
launch_app <- function(MonteCarlo = 1000){
  shinyOptions(MonteCarlo = MonteCarlo)
  source(system.file("app.R", package = "my_pkg", local = TRUE, chdir = TRUE))$value    
}

文件 app.R 可能类似于此

## file: inst/app.R
appDir <- getwd()
monte.carlo.default <- 1000
MonteCarlo <- getShinyOption("MonteCarlo", monte.carlo.default)

shinyApp(
  ui = fluidPage(paste("Chosen parameter:", MonteCarlo)),
  server = function(input, output, session){
     oldwd <- setwd(appDir)
     on.exit(setwd(oldwd))
     ## put more server logic here
  }
)

setwd() 部分仅在您在 server 中使用本地路径时才相关。

Here您还可以找到 shiny 的创建者 Joe Cheng 对此主题的看法。

编辑:为什么使用 source 而不是 runApp？

你是对的，“标准”方法是使用 runApp，但我选择不这样做有两个原因:

首先，runApp 将保存全局环境中的所有server 变量。这意味着在应用程序停止后，您的包的用户将在他们的工作区中拥有他们不需要的变量。如果您使用我概述的设计，您的用户环境将不会因运行应用程序而受到影响。

其次，通过像这样编写 launch_app 函数，您可以像这样通过 shiny-server 轻松部署应用程序

## file: /srv/shiny-server/my-pkg/app.R
my_pkg::lauch_app(MonteCarlo = 800)

如果 launch_app 调用 runApp，那是不可能的。使用 runApp 方法，您需要使用指向 app 文件夹的符号链接(symbolic link)，这将导致更多的维护工作(例如，如果 .libPaths 或 inst/ 更改)。此外，您将无法轻松地将参数传递给应用程序的 shiny-server 版本