閃亮的儀表板。 如何取消選擇菜單項？

Question

我有這段代碼：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPage(
    header = dashboardHeader(userOutput("user")),
    sidebar = dashboardSidebar(shinyjs::useShinyjs(),uiOutput("sidebarpanel")),
    body = dashboardBody(uiOutput("body")),
    title = "DashboardPage"
  ),
  server = function(input, output) {
    output$user <- renderUser({
      dashboardUser(
        name = "Divad Nojnarg", 
        image = "https://adminlte.io/themes/AdminLTE/dist/img/user2-160x160.jpg", 
        title = "shinydashboardPlus",
        subtitle = "Author", 
        footer = p("The footer", class = "text-center"),
        fluidRow(
          actionButton("personalInfo","Personal Info")
        )
      )
    })
    
    observeEvent(input$personalInfo, {
      output$body <- renderUI({h4("Personal Info Dahsboard (no menuItem)")})
    })
    
    output$sidebarpanel <- renderUI({
        sidebarMenu(id="tabs",
                        menuItem("Dashboard 1", tabName = "dashboard1", icon = icon("dashboard"))        
                        ,menuItem("Dashboard 2", tabName = "dashboard2", icon = icon("dashboard"))
        )
    }) 
    
    output$body <- renderUI({
      
      tabItems(
        tabItem(tabName ="dashboard1",
                fluidRow(box(width = 12, h4("Dashboard 1 (menuItem)"))))
        ,tabItem(tabName ="dashboard2",
                 fluidRow(box(width = 12, h4("Dashboard 2 (menuItem)"))))
      )
    })
  }
)

我想做兩件事：

首先：當我點擊“個人信息”按鈕時，然后，防止 menuItem 被遮蔽（我假設我需要刪除類“selected”或“active”或類似的東西）

第二：我想解決這個問題：按下“個人信息”按鈕后，菜單項不起作用：

Answer 1

正如我之前在此處的回答中所示，我們可以使用隱藏的menuItem獨立於可見選擇的menuItem來修改正文內容。

此外，我建議在這種情況下停止使用renderUI 。 一般來說，重新渲染 UI 元素而不是更新現有元素會更慢（這里我們可以通過updateTabItems切換到隱藏的 menuItem - 然而，這也適用於例如使用updateSelectInput而不是renderUI({selectInput(...)}) ）。 在這種情況下，您還應該質疑是否真的需要在服務器端創建dashboardUser 。

如果您確實需要服務器端生成的dashboardSidebar ，您仍然不應該使用renderUI - renderMenu() / sidebarMenuOutput()函數可用於此。 請在此處查看相關文檔。

library(shiny)
library(shinyjs)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPage(
    header = dashboardHeader(userOutput("user")),
    sidebar = dashboardSidebar(shinyjs::useShinyjs(),
                               sidebarMenu(id="tabs",
                                           menuItem("Tab 1", tabName = "tab1", icon = icon("dashboard")),
                                           menuItem("Tab 2", tabName = "tab2", icon = icon("dashboard")),
                                           hidden(menuItem("Personal Tab", tabName = "personal_tab", icon = icon("dashboard")))
                               )),
    body = dashboardBody(useShinyjs(),
                         tabItems(
                           tabItem(tabName ="tab1",
                                   fluidRow(box(width = 12, h4("Tab 1 (menuItem)")))),
                           tabItem(tabName ="tab2",
                                   fluidRow(box(width = 12, h4("Tab 2 (menuItem)")))),
                           tabItem(tabName ="personal_tab",
                                          fluidRow(box(width = 12, h4("Personal Info Dahsboard (no menuItem)"))))
                         )
    ),
    title = "DashboardPage"
  ),
  server = function(input, output, session) {
    output$user <- renderUser({
      dashboardUser(
        name = "Divad Nojnarg", 
        image = "https://adminlte.io/themes/AdminLTE/dist/img/user2-160x160.jpg", 
        title = "shinydashboardPlus",
        subtitle = "Author", 
        footer = p("The footer", class = "text-center"),
        fluidRow(
          actionButton("personalInfo","Personal Info")
        )
      )
    })
    
    observeEvent(input$personalInfo, {
      shinydashboard::updateTabItems(session, inputId = "tabs", selected = "personal_tab")
    })
  }
)