активировать tabpanel с другого tabpanel

Question

Я хочу, чтобы при запуске приложения вкладка tab2 = деактивирована, и будет активирована, как только я нажму кнопку на первой вкладке tab1, , я попробовал с shinyjs и с помощью свойств CSS, но я Не могу сделать это.

спасибо за вашу помощь Alex

library(shiny) 
library(shinyjs) 
runApp(list(
ui = bootstrapPage(
tabsetPanel(
    tabPanel(title = "tab1", id="tab1", 
      br(), 
      actionButton("click", label = "View tab2 panel")), 
    tabPanel(title = "tab2", id="tab2") 
) 
), 
server = function(input, output, session){ 
} 
)) 

Answer 1

Вам нужно немного JavaScript, чтобы сделать это. Вот решение, использующее shinyjs. Я также включил некоторые CSS, чтобы понять, когда вкладка отключена

jscode <- " 
shinyjs.disableTab = function(name) { 
    var tab = $('.nav li a[data-value=' + name + ']'); 
    tab.bind('click.tab', function(e) { 
    e.preventDefault(); 
    return false; 
    }); 
    tab.addClass('disabled'); 
} 

shinyjs.enableTab = function(name) { 
    var tab = $('.nav li a[data-value=' + name + ']'); 
    tab.unbind('click.tab'); 
    tab.removeClass('disabled'); 
} 
" 

css <- " 
.nav li a.disabled { 
    background-color: #aaa !important; 
    color: #333 !important; 
    cursor: not-allowed !important; 
    border-color: #aaa !important; 
}" 

library(shiny) 
library(shinyjs) 
runApp(list(
    ui = fluidPage(
    useShinyjs(), 
    extendShinyjs(text = jscode), 
    inlineCSS(css), 
    tabsetPanel(
     id = "navbar", 
     tabPanel(title = "tab1", id = "tab1", 
       br(), 
       actionButton("btn", label = "View tab2 panel")), 
     tabPanel(title = "tab2", id = "tab2") 
    ) 
), 
    server = function(input, output, session) { 

    # disable tab2 on page load 
    js$disableTab("tab2") 

    observeEvent(input$btn, { 
     # enable tab2 when clicking the button 
     js$enableTab("tab2") 
     # switch to tab2 
     updateTabsetPanel(session, "navbar", "tab2") 
    }) 
    } 
)) 

Вы также можете поместить JavaScript в отдельный файл и использовать extendShinyjs(file = ...) вместо extendShinyjs(text = ...).