Javascript 除非用户单击按钮，否则如何阻止用户访问 Shiny 中的其他选项卡

既然你把tabPanel放在navbarPage里，你就必须用updateNavbarPage.你需要给navbarPage分和id分.

library(shiny)

ui <- shinyUI(navbarPage(
  "", id = "mainpage",
  tabPanel(
    h1("Tab1"), 
    value = "nav1",
    mainPanel(
      br(),
      h2("The user must press this button to access the other tab."),
      br(),
      shiny::actionButton('button', 'press the button', onclick = "$(tab).removeClass('disabled')")
    )
  ),
  tabPanel(
    h1("Tab2"),
    value = "nav2",
    uiOutput("tab2contents")
  ),
  tags$script(
    '
    var tab = $(\'a[data-value="nav2"]\').parent().addClass("disabled");
    $(function(){
      $(tab.parent()).on("click", "li.disabled", function(e) {
        e.preventDefault();
        return false;
      });
    });
    '
  )
))    

server <- shinyServer(function(input, output) {
  observeEvent(input$button,
               {
                 updateNavbarPage(inputId = "mainpage", selected = "nav2")
               }, ignoreInit = TRUE)
})

# Run the application
shinyApp(ui = ui, server = server)