如何解决R:为什么我在发布 Shiny 应用程序时得到“没有返回 Shiny.app 对象”?
我尝试发布带有模块的 Shiny 应用程序,但出现以下错误:没有返回 Shiny.app 对象
简化示例:
我在项目 Proj 中拥有所有内容,代码位于名为 R 的文件夹中。 在文件夹 R 我有 app.R 和 histogram.R
app.R
library(shiny)
library(pkgload)
histogramApp <- function(...) {
ui <- fluidPage(
histogramUI("hist1")
)
server <- function(input,output,session) {
histogramServer("hist1")
}
shinyApp(ui,server,...)
}
直方图.R:
histogramUI <- function(id) {
tagList(
selectInput(NS(id,"var"),"Variable",choices = names(mtcars)),numericInput(NS(id,"bins"),"bins",value = 10,min = 1),plotOutput(NS(id,"hist"))
)
}
histogramServer <- function(id) {
moduleServer(id,function(input,session) {
data <- reactive(mtcars[[input$var]])
output$hist <- renderPlot({
hist(data(),breaks = input$bins,main = input$var)
},res = 96)
})
}
我跑了
usethis::use_description()
devtools::load_all()
然后我按发布并得到错误。
我一整天都在为此苦苦挣扎,并且研究了几个闪亮的指南,但无法使其发挥作用。任何帮助表示赞赏!谢谢!
顺便说一句:我之前已经成功发布了应用程序,所以一切都很好。如果我在“app.R”中获取“histogram.R”,它也能正常工作
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。