动态生成的 tabItems

Question

现在我正在使用uiOutput 和renderUI 来显示我的内容。但我想使用 Google Analytics，所以我必须使用 tabItems 来跟踪我的应用程序的页面。但这对我不起作用。

我的代码的简单示例：

UI <- dashboardPagePlus(
  header = dashboardHeaderPlus(...),
  sidebar = dashboardSidebar(
    ...,
    sidebarMenu(
      menuItemOutput(
        outputId = 'EventsMenu'
      ),
      ...
    ),
  body = dashboardBody(
    ...,
    uiOutput(
      outputID = 'EventsBody'
    ),
    ...
  )
)

Server <- function(
  input,
  output
) {
  output$EventsMenu <- renderMenu(
    {
      lapply(
        X = 1:10,
        FUN = function(
          ID
        ) {
          menuItem(
            text = 'Event',
            tabName = paste0(
              'Event',
              ID
            )
          )
        }
      )
    }
  )
  ...
  output$EventsBody <- renderUI(
    {
      if(
        stri_detect(
          str = 'Event'
        )
      ) {
        fluidPage(
          fluidRow(
            ...
          )
        )
      }
    }
  )
  ...
}

shinyApp(
 ui = UI,
 server = Server
)

如何更改我的代码以使用tabItems？

Answer 1

只需处理shiny.router 所以我的菜单项看起来像：

menuItem(
    text = "Homepage",
    href = route_link(
        path = "Home"
    ),
    newtab = FALSE
)