Como sincronizar tabPanels no R

Ola Pessoal,
Meu desafio aqui é clicar no tabpanel “Panel 2” e no TabSet ao Lado 'abrir" o tabPanel “Panel Right Chart 2” sincronizando os 2.

Esse é o meu codigo:

library(shiny)

ui <- fluidPage(
  
  column(
    width = 6,
    
    tabsetPanel(
      
      tabPanel(
        strong("Panel 1")
      ),
      
      tabPanel(
        strong("Panel 2")
      ),
      
      tabPanel(
        strong("Panel 3")
      ))),
  
  column(
    width = 6,
    
    tabsetPanel(
      
      tabPanel(
        strong("Panel Right Chart 1"),
        plotOutput("chart1")
      ),
      
      tabPanel(
        strong("Panel Right Chart 2"),
        plotOutput("chart2")
      ),
      
      tabPanel(
        strong("Panel Right Chart 3"),
        plotOutput("chart3")
      )))
  
  
    
    

)

server <- function(input, output, session) {
  
  output$chart1 <- renderPlot({
    ggplot(mtcars,aes(cyl,mpg)) + geom_line(color = 'red')
  })
  
  output$chart2 <- renderPlot({
    ggplot(mtcars,aes(cyl,mpg)) + geom_line(color = 'green')
  })
  
  output$chart3 <- renderPlot({
    ggplot(mtcars,aes(cyl,mpg)) + geom_line(color = 'blue')
  })
  
}

shinyApp(ui, server)

Acredito que tenha a ver com esse capitulo do Mastering Shiny mas nao to conseguindo implementar isso

Mastering Shiny