条件面板内部的闪亮R app menuitem变形

Question

我有一个带有4 menuItem的闪亮应用程序。 一个名为“登录”，并且tabA，tabB和tabC在conditionalPanel下，并且仅在成功完成登录后出现。

有人可以提示用户界面更改的原因吗？ 因为所有4个标签应与第一个标签完全相同。

ui.R代码：

menuItem('Login', tabName = 'Login', icon = icon('fa fa-address-book')),
conditionalPanel(" 'TRUE' === 'TRUE' ",                                              
               menuItem("tabA", tabName = "tabA", icon = icon("fa fa-book")),
               menuItem("tabB", tabName = "tabB", icon = icon("fa fa-line-chart")),
               menuItem("tabC",  icon = icon("fa fa-database")))

先感谢您

Answer 1

一种选择应该是用sidebarMenu包装

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "Shiny"
  ),

  dashboardSidebar(
    sidebarMenu(id="menu",
                menuItem('Login', tabName = 'Login', icon = icon('user-o')),
                conditionalPanel(" 'TRUE' === 'TRUE' ",  
                sidebarMenu(menuItem("tabA", tabName = "tabA", icon = icon("quora")),
                menuItem("tabB", tabName = "tabB", icon = icon("superpowers")),
                menuItem("tabC", tabName = "tabC", icon = icon("podcast"))))
    )
  ),

  dashboardBody(
    tabItems(
      tabItem("Login",h1("login")),
      tabItem("tabA",h1("a")),
      tabItem("tabB",h1("b")),
      tabItem("tabC", h1("c"))

    )


  )
)


server <- function(input, output) {
  observe(print(input$menu))
}

shinyApp(ui,server)

提供输出