如何用shinyjs隐藏navbarmenu?

您的代码有一些错误,缺少 } 在您的 server hide 函数 m1 "m1" ,并且不初始化 shinyjs 具有 shinyjs::useShinyjs() div 围绕 navbarMenu 或 tabPanel

更好的选择是创建 navbar uiOutput 并控制使用用户名渲染的内容。下面是一个基于代码的示例,用于显示基于用户的内容。

library(shiny)
library(shinyjs)
ui <- fluidPage(
  selectInput("userSL", 'Users:', c('admin', 'custom')),
  titlePanel("NAVBARPAGE"), 
  br(),
  uiOutput("navbarPageUI")
)

server <- function(input, output,session) {

  output$navbarPageUI <- renderUI({
    user <- input$userSL
    if (user == 'admin') {
      navbarPage("", 
        navbarMenu("Menu1",
          tabPanel('tab11',plotOutput('tab_11')),
          tabPanel('tab12',uiOutput('tab_12'))
        ),
        navbarMenu("Menu2",
          tabPanel('tab21',uiOutput('tab_21')),
          tabPanel('tab22',uiOutput('tab_22'))
        )
      )
    } else {
      navbarPage("", 
        navbarMenu("Menu2",
          tabPanel('tab21',uiOutput('tab_21'))
        )
      )
    }
  })

}

shinyApp(ui = ui, server = server)