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

它应改为menuItemOutput("tabitems")，而不是uiOutput("tabitems")。

现在可以了。

R Shinydashboard动态tabItem不起作用

1 个答案: