使用模块的闪亮应用程序在本地部署时不会返回shiny.appobj对象。
使用模块的闪亮应用程序在本地部署时不会返回shiny.appobj对象。
提问于 2022-03-30 08:57:24
我试图使用模块构建一个闪亮的应用程序，但是，当我尝试在本地运行该应用程序时，我会得到错误消息："Error (fname，.)：app.R没有返回一个shiny.appobj对象。“
当我省略模块并在一个app.R文件中完成所有操作时，它可以正常工作。
文件夹结构如下：
"Project_Folder“
- app.R
- "R“文件夹-> "Form_UI.R"，"Data_Browser_Server.R"
- "Testdata.feather"
library(shiny)
library(shinydashboard)
library(tidyverse)
library(DT)
df_Browser_data <- feather::read_feather("Testdata.feather")
Datenbericht_App <- function(){
ui <- dashboardPage(
title = "Prototype",
dashboardHeader(title = "Browser prototype", titleWidth = 350),
skin = "red",
dashboardSidebar(
width = 350,
disable = FALSE,
sidebarMenu(
id = "tabs",
menuItem(
text = "Data Browser",
tabName = "Data_Browser"
),
menuItem(
text = "Preview",
tabName = "Preview_Window"
)
)
),
mainPanel(
tabItems(
tabItem(tabName = "Data_Browser",
fluidPage(
Form_UI("Overview"),
dataTableOutput("Browser_Table")
)
),
tabItem(tabName = "Preview_Window",
fluidPage(
)
)
)
)
)
server <- function(input, output, session) {
output$Browser_Table <- renderDataTable(Data_Browser_Server("Overview"))
}
shinyApp(ui, server)
}回答 1
Stack Overflow用户
回答已采纳
发布于 2022-03-30 10:21:45
返回函数Datenbericht_App。shinyApp函数在Datenbericht_App中返回一个闪亮的应用程序对象，但它没有被调用。您可以在脚本的最后一行上运行Datenbericht_App()来返回一个闪亮的应用程序对象。
一个简化的例子：
library(shiny)
myWrapper <- function(){
ui <- fluidPage(
h1("This is just a test")
)
server <- function(input, output, session) {}
shinyApp(ui, server)
}
myWrapper()页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71674326
复制相关文章
相似问题
腾讯云开发者
