使用传递给闪亮应用程序的参数将R Shiny应用程序另存为函数

Question

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

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

有没有更好的方法来传递我的“ MonteCarlo”参数以在整个闪亮的应用程序中使用？ 请注意，我试图避免仅将“ MonteCarlo”作为应用程序本身的输入选项之一。 我希望用户不要担心。 但是，如果需要的话，有知识的用户可以在启动应用程序时对其进行控制。

Answer 1

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

另外，我source从输出shinyApp直接而不是unsing 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
  }
)

仅当您在server内部使用本地路径时， setwd()部分才有意义。

在这里，您还可以找到shiny主题的创建者Joe Cheng对这个主题的看法。

编辑：为什么使用源而不是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文件夹，这将导致更多的维护工作（例如，如果.libPaths或inst/的结构发生更改）。 此外，您将无法轻松地将参数传递到应用程序的shiny-server版本