如何在shinydashboard中禁用tabPanel？

有没有办法在单击actionButton之前禁用tabPanel？我试着用shinyjs做这个，但是没有成功。目前我的ui.R有以下代码。我想禁用“过滤器”选项卡面板，直到单击loadButton。 `

---

body我和shinyjs一起工作。
`

jsCode我一直在使用您的答案根据需要启用和禁用选项卡，但我意识到，如果
tabPanel（）
中的
title
中包含空格，则该选项无效。如何修改jsCode来纠正这个问题？
body <- dashboardBody(
    useShinyjs(),
    tabsetPanel(id = "tabs", type = 'pills',
        tabPanel("Load", dataTableOutput("loadTab")),
        tabPanel("Filter", id='filterTab',dataTableOutput("filteredResults"))
    ))
sidebar <- dashboardSidebar(
        sidebarMenu(
         selectInput(inputId = "datasetName",label = 'Dataset',  choice=c('Cancer','Normal')),
         actionButton("loadButton", label = "Load")
        ))

    jsCode <- "
shinyjs.disableTab = function() {
    var tabs = $('#tabs').find('li:not(.active) a');
    tabs.bind('click.tab', function(e) {
        e.preventDefault();
        return false;
    });
    tabs.addClass('disabled');
}
shinyjs.enableTab = function(param) {
    var tab = $('#tabs').find('li:not(.active):nth-child(' + param + ') a');
    tab.unbind('click.tab');
    tab.removeClass('disabled');
}