r手动执行shinyapps部署时出错

Question

我有一个shinnyapphttps://www.shinyapps.io/我可以正常地使用"；发布"；按钮

然而，我想使用deployApp函数，如下代码所示：

rsconnect::deployApp("~/Documents/R/shinny",appName="myapp", account="myaccount")

但当使用deployApp功能时，它在网络浏览器上出现错误：

An error has occurred
The application failed to start: exited unexpectedly with code 1
Attaching package: ‘dplyr’
The following objects are masked from ‘package:plyr’:
arrange, count, desc, failwith, id, mutate, rename, summarise,
summarize
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
Error in value[[3L]](cond) : could not find function "dashboardPage"
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted

所以，如果按下按钮，没问题，但如果我使用该功能，它就会出错。

我的Rscript结构如下(函数中有更多的代码，但我保持简单的示例(

library(shinydashboard)
library(shiny)
library(ggplot2)
library(dplyr)
library(scales)
library(lubridate)
library(zoo)
library(reshape2)
library(scales)
library(ggrepel)
library(stringr)
load("sales.RData")
sidebar <- dashboardSidebar(

)
)
body <- dashboardBody(
)
ui <- fluidPage(dashboardPage(
dashboardHeader(),
sidebar,
body
)
)

server <- function(input, output) {

}
# Run the application 
shinyApp(ui = ui, server = server)
rsconnect::deployApp('C:\Users\Repro\Documents\R\SHINY', 
appFiles = c('app.R','sales.RData','www/custom.css'), 
account = 'myaccount', server = 'shinyapps.io')

可能是什么问题？

感谢

Answer 1

经过反复试验，我解决了这个问题。

我的错误是试图执行应用程序。R脚本，包括部署脚本。

当我按照下面的方式单独运行部署脚本时，它是有效的：

rsconnect::setAccountInfo(name='myaccount',
token='xxxxxxxxx',
secret='yyyyyyyy')
rsconnect::deployApp(appDir = 'C:\Users\Documents\R\SHINY',appFiles=c('app.R','sales.RData','www/custom.css'),
account = 'myaccount', server = 'shinyapps.io')