閃亮的R應用程序menuitem內部條件面板變形

Question

我有這個閃亮的應用程序與4 menuItem。一個名爲「Login」，tabA，tabB和tabC位於條件面板下，並且只有在登錄成功完成時纔會出現。

能有人給上爲什麼UI已經改變的暗示？因爲所有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) 

給輸出

包