r-使用模块的Shiny应用程序在本地部署时不会返回Shiny.appbj对象

Question

我试图使用模块构建一个闪亮的应用程序，但是，当我尝试在本地运行该应用程序时，我收到错误消息："函数(fname，…(中出错：应用程序。R未返回shiny.appbj对象">

当我省略模块并在一个应用程序中完成所有操作时。R文件，工作正常。

文件夹结构如下：

"项目文件夹">

1. app.R
2. "R〃；文件夹->quot；Form_ UI.R"数据浏览器服务器.R">
3. "测试数据.羽毛

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)
}

Answer 1

返回函数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()