结合闪亮的服务器功能

Question

我的总体目标是构建一个闪亮的应用程序，该应用程序查看目录中的某些r文件，然后将这些文件用作闪亮的仪表板的选项卡。首先，我知道如何使用闪亮的模块，从我收集的内容来看，它并不能完全达到我想要达到的目的。

我目前坚持让服务器功能可以动态创建。这是我目前的位置。

首先，创建UI的一些列表

MenuItems <- list(menuItem('menu text', tabName = 'tab', icon=icon('dashboard')))

TabItems  <- list(tabItem(
    tabName='tab',
    fluidPage(
      tags$h1("Hello There"),
      sliderInput("bins",'Number of bins', 0, 100, 1),
      plotOutput("distPlot")
  )
))

然后找到其他r个文件，以便像这样将元素添加到列表中

ind = length(MenuItems)
MenuItems[[ind+1]] <- menuItem('Module 1', tabName = MODULE_ID, icon=icon('dashboard'))

ind = length(TabItems)
TabItems[[ind+1]] <- tabItem(
  tabName = 'module',
  fluidPage(
    tags$h1('Module')
  )
)

然后这些碎片在这里被迷惑了

dynamic_sidebar <- dashboardSidebar(
  do.call(sidebarMenu,MenuItems)
)

dynamic_body <- dashboardBody(
    do.call(tabItems, TabItems)
)


ui <- {
  dashboardPage(
    title="ModuleTest",
    header  =dashboardheader,
    sidebar =dynamic_sidebar,
    body    =dynamic_body
  )
}

我希望服务器组件可以以类似的方式处理，每个模块可以添加所需的组件，然后将它们缝合在一起以实现最终的应用程序服务器功能。