條件面板內部的閃亮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)

提供輸出