Отключение виджетов ввода в Shiny sidebarPanel

Question

У меня есть приложение Shiny с 3 наборами радиоуправляемых кнопок на боковой панели. Черновик кода для справки приведен ниже.

    ui <- fluidPage(
            mainPanel(
                tabsetPanel(
    tabPanel("A", ...),
    tabPanel("B", ...)
  )
),
sidebarPanel("", 
      radioButtons("num1", "Numbers:",...),
      radioButtons("num2", "Numbers:",...),
      actionButton("ab1", ...),
      radioButtons("num3", "Numbers:",...),
      actionButton("ab2", ...),
    )
    server <- function(input, output) {
      output$showMe <- renderPlot({
        ...      })
    }
    shinyApp(ui, server)
    }

Два элемента управления Radiobutton выровнены с одной tabPanel, а один с другой tabPanel. Я хочу иметь общую боковую панель для обеих tabPanel, чтобы, пока одна tabPanel активна, подсвечивались только связанные радиокнопки (а не оставшаяся), и наоборот. Есть ли какой-нибудь механизм для этого? Заранее спасибо.