Question

我有一个闪亮的应用程序，可以在我的电脑和shinyapps.io上完美运行。此应用程序是为客户端构建的，我需要共享它以在桌面上运行。我已经使用了here上给出的指导。

我的闪亮服务器的第一行读取RDS文件并加载数据。我已经在上面共享的示例中给出的闪亮文件夹中复制了RDS。我当前的文件夹如下所示：

C:/dist/
GoogleChromePortable
R-Portable
shiny - within shiny folder i have ui.R, server.R, lhg.RDS
run.vbs
runShinyApp.R

run.vbs

Randomize
CreateObject("Wscript.Shell").Run "R-Portable\App\R-Portable\bin\i386\R.exe CMD BATCH --vanilla --slave runShinyApp.R" & " " & RND & " ", 0, False

runShinyApp.R

.libPaths("./R-Portable/App/R-Portable/library")
browser.path <- file.path(getwd(),"GoogleChromePortable/GoogleChromePortable.exe")
options(browser = browser.path)
shiny::runApp("./Shiny/",port=8888,launch.browser=TRUE)

我的服务器开头是这样的：

lhg <- readRDS(file.path(getwd(),"LHG.RDS"))

当我运行vbs文件时，它会打开一个浏览器，但会抛出一条错误消息：

Error:object "lhg" not found

每次运行时，错误都会创建一个带有一些随机数的新文件，其中包含相同错误的日志。

有人可以帮忙吗？

Answer 1

您可能想要试用RInno包（我上个月刚刚将它发布到CRAN）。它有助于自动化这些类型的桌面部署，您应该能够通过以下方式进行设置：

install.packages("RInno")
require(RInno)
RInno::install_inno()

包含ui.R＆amp;的目录server.R是app_dir：

create_app(app_name = "Your app's name", app_dir = "path/to/app_dir")
compile_iss()

生成的安装程序应按原样安装您的应用程序＆＃34;＆＃34;所以你不需要管理那些棘手的工作目录问题。如果它在您的开发环境中工作，它应该在安装后工作。如果您想了解有关如何自定义安装的更多资源，请查看FI Labs - RInno

在桌面上部署shinyapps

1 个答案: