我正在构建一个 R 包,它具有启动 Shiny 应用程序的功能。我希望该函数包含一个要传递给应用程序的参数。我发现唯一可行的方法是设置全局值,然后让应用程序使用该全局值:
launch_app <- function(MonteCarlo=1000){
MonteCarlo_global <<- MonteCarlo
shiny::runApp(appDir = system.file("app.R", package="my_package"))
}
有没有更好的方法来传递我的“MonteCarlo”参数以在整个 Shiny 的应用程序中使用?请注意,我试图避免简单地将“MonteCarlo”作为应用程序本身的输入选项之一。我宁愿让用户不用担心。但是,如果需要,知识渊博的用户可以在启动应用程序时控制它。
最佳答案
我目前使用 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
版本
关于r - 将 R Shiny 应用程序保存为函数,并将参数传递给 Shiny 的应用程序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49470474/