R Shinydashboard 动态 tabItem 不起作用

Question

有一些可用于 Shinydashboard 动态菜单项的示例。 最有用的是here、here和here。

但是，当我尝试动态呈现每个 menuItem 内的内容时，我无法使其工作。

您会从我的示例中注意到，menuItem“main”是在服务器端动态创建的，但其中的 UI 项不是（textInput、passwordInput 和 actionButton）。

这是我的代码。

library(shiny)
library(shinydashboard)

# Define UI for app
header1 <- dashboardHeader(
  title = "My Dynamic Menu"
) #dashboardHeader

# DYNAMIC UI
sidebar1 <- dashboardSidebar(
  sidebarMenu(
    menuItemOutput("menuitems")
  ) #sidebarMenu
) #dashboardSidebar
#
body1 <- dashboardBody(
  tabItems(
    menuItemOutput("tabitems")
  ) #tabItems
) #dashboardBody

ui <- dashboardPage(header1, sidebar1, body1)

# Define server logic
server <- function(input, output, session) {

  output$menuitems <- renderMenu({
    menuItem("Main", tabName = "main", icon = icon("key"))
  }) #renderMenu

  output$tabitems <- renderUI({
    tabItem(tabName = "main",
            h2("Login"),
            textInput(inputId = "username1", label = "User name:", value = ""),
            passwordInput(inputId = "password1", label = "Password:"),
            actionButton(inputId = "loginbutton1", label = "Login")
    ) #tabItem
  }) #renderUI

} #server

# Run the application 
shinyApp(ui = ui, server = server)

UI 元素应该看起来好像我用这个替换了 # DYNAMIC UI 部分......

# STATIC UI
sidebar1 <- dashboardSidebar(
  sidebarMenu(
    menuItem("Main", tabName = "main", icon = icon("key"))
  ) #sidebarMenu
) #dashboardSidebar
#
body1 <- dashboardBody(
  tabItems(
    tabItem(tabName = "main",
            h2("Login"),
            textInput(inputId = "username1", label = "User name:", value = ""),
            passwordInput(inputId = "password1", label = "Password:"),
            actionButton(inputId = "loginbutton1", label = "Login")
    ) #tabItem
  ) #tabItems
) #dashboardBody

我知道它不会渲染内部的单个 UI 元素，因为我在dashboardBody 内部使用menuItemOutput 代表("tabitems")。我在文档中找不到任何其他用于创建动态 UI 元素的 UI 端函数。

如何动态添加 UI 项并将它们保存在各自的菜单项中？

如果您能帮我解决这个问题，我将不胜感激！ 有什么想法吗？

Answer 1

应该说uiOutput("tabitems")，而不是menuItemOutput("tabitems")。

现在可以了。