「shinydashboard」是用包「shinydashboard」不顯示項目正確的

Question

我創建了一個閃亮的應用「側邊欄」如下：

library(shinydashboard) 
library(shiny) 

sidebar <- dashboardSidebar(

    sidebarMenu(id="tabs", 
       menuItem("ABC", tabName="ABC", icon=icon("line-chart"), selected=TRUE), 
       menuItem("ABC1", tabName="ABC1", icon=icon("line-chart"), selected=FALSE) 
), 
conditionalPanel("input.tabs == 'ABC'", 
    fluidRow(
     column(11, offset = 1, h5((' Note'))) 
    ) 
    ), 
conditionalPanel("input.tabs == 'ABC1'", 
    fluidRow(
     column(11, offset = 1, style = "height:20px; color:rgb(30,144,255);", h1((' Update'))) 
    ) 
    )) 

body <- dashboardBody(
    tabItems(
    tabItem(tabName = "ABC",br()) 

    ), 
    tabItems(
    tabItem(tabName = "ABC1",br()) 

    ) 
) 


ui = dashboardPage(
    dashboardHeader(title = "ABC"), 
    sidebar, 
    body 
) 

server = function(input, output){} 

shinyApp(ui = ui, server = server) 

不過，我已經注意到的是，當我運行的應用程序一個奇怪的行爲，最初「input.tabs =='ABC'」中的註釋'Note'是不可見的。但是，當我點擊「input.tabs =='ABC1'」，然後點擊「ABC」時，「註釋」註釋變得可見。

有人能指出我在上面的代碼中出錯的地方嗎？

任何幫助將不勝感激。

感謝，

Answer 1

看來，我們在shinydashboard最新版本引入了這個bug。抱歉!我會盡快修復它。您可以在這裏跟蹤進度：https://github.com/rstudio/shinydashboard/issues/214。

更新（2017年6月9日）：現在已修復shinydashboard的開發版本。如果你從GitHub安裝shinydashboard你原來的代碼應該運行得很好：

devtools::install_github("rstudio/shinydashboard") 

---

在此期間，兩件事情：

• 使用selected = FALSE你不需要。
• 如果您要開始選擇的menuItem()是第一個（例如您在上面發佈的示例中），也請刪除selected = TRUE，問題就會消失。這只是一個解決方法，讓您的應用程序立即工作。當這個錯誤得到解決時，selected = TRUE或第一個menuItem()中沒有任何區別。
• 一個更普遍的解決辦法，現在（的作品無論你要開始選擇哪個menuItem()）是使用動態工具欄菜單：

library(shinydashboard) 
library(shiny) 

sidebar <- dashboardSidebar(

    sidebarMenuOutput("menu"), 
    conditionalPanel("input.tabs == 'ABC'", 
    fluidRow(
     column(11, offset = 1, h5((' Note'))) 
    ) 
), 
    conditionalPanel("input.tabs == 'ABC1'", 
    fluidRow(
     column(11, offset = 1, style = "height:20px; color:rgb(30,144,255);", h1((' Update'))) 
    ) 
)) 

body <- dashboardBody(
    tabItems(
    tabItem(tabName = "ABC",br()) 

), 
    tabItems(
    tabItem(tabName = "ABC1",br()) 

) 
) 


ui = dashboardPage(
    dashboardHeader(title = "ABC"), 
    sidebar, 
    body 
) 

server = function(input, output){ 
    output$menu <- renderMenu({ 
    sidebarMenu(id="tabs", 
     menuItem("ABC", tabName="ABC", icon=icon("line-chart"), selected=TRUE), 
     menuItem("ABC1", tabName="ABC1", icon=icon("line-chart")) 
    ) 
    }) 
} 

shinyApp(ui = ui, server = server)