Shiny Dashboard 仅自行运行，而不是作为应用程序运行

如何解决Shiny Dashboard 仅自行运行，而不是作为应用程序运行

我有一个带有多个选项卡的 Shiny 应用程序。每个选项卡都有自己的文件夹，其中包含 ui.R 和 server.R 文件。除了主“仪表板”选项卡外，它们都可以工作。本教程示例中应该有两个框：http://rstudio.github.io/shinydashboard/get_started.html

dash/ui.R 中的代码是：

server <- function(input,output) {
set.seed(122)
histdata <- rnorm(500)

output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
})

)

在破折号/server.R中

source("dash/server.R",local = TRUE)

如果我自己运行 dash/ui.R，它会正确创建所有内容。如果我运行我的整个应用程序，它会创建所有内容，但在我的仪表板上，我会得到两个框。我会得到一个滑块和一个没有图表的标有“wtf”的框。我不明白为什么图表没有显示。我的主服务器。感兴趣的R代码是：

source('dash/ui.R',local = TRUE)
dash <- tabItem(tabName = "dash",dash.Box)

我感兴趣的 body.R 代码是：

duplicated