闪亮的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) 

给输出

包