多文件闪亮仪表板答案

【问题标题】：Multifile shiny dashboard多文件闪亮仪表板
【发布时间】：2018-04-28 13:29:42
【问题描述】：

我尝试像link 那样重建我的应用程序。我有一个多主题仪表板，我希望将每个主题放在单独的 ui 和服务器文件中，以便更好地控制代码。

主文件 (app.R) 正在与其他文件联系，例如使用 source(file.path("ui", "tab1.R"), local = TRUE)$value 的 UI tab1.R 看起来像：

tabPanel("Tab 1", uiOutput("content1"))（content1 在服务器文件中）。

我希望能够在一个文件中将更多内容放在 tabPanel 上。我以为我可以做这样的事情： tab1.R 看起来像：

aaa <- tabPanel("Tab 2", uiOutput("content2")) 
bbb <- tabPanel("Tab 1", uiOutput("content1"))

然后使用以下方式与他们联系：

source(file.path("ui", "tab1.R"),  local = TRUE)$aaa
source(file.path("ui", "tab1.R"),  local = TRUE)$bbb

但我得到错误：

Error in attr(x, "selected") <- TRUE : 
  attempt to set an attribute on NULL

我在任何地方都找不到答案，所以我不想写在这里寻求帮助

【问题讨论】：

【解决方案1】：

我发现 imo 是最好的方法，我只是使用了函数：

aaa <- function(){tabPanel("Tab 2", uiOutput("content2"))}
bbb <- function(){tabPanel("Tab 1", uiOutput("content1"))}

然后在文件顶部我上传源：

source(file.path("ui", "tab1.R"),  local = TRUE)

现在我可以正常使用代码中的函数了：

aaa()
bbb()

【讨论】：