我们可以添加一个观察者，它对活动选项卡中的更改做出React，并重新呈现相应的图表。这可确保每次用户切换到不同选项卡时播放动画：

library(echarts4r)
library(magrittr)
library(shiny)

ui <- fluidPage(
  tabsetPanel(id = "tabsetpanel", 
              tabPanel("Panel A", value = "A", echarts4rOutput("chartA")
              ),
              tabPanel("Panel B", value = "B", echarts4rOutput("chartB")
              )
  )
)

server <- function(input, output, session) {
  
  current_tab <- reactiveVal("A")
  
  observeEvent(input$tabsetpanel, {
    current_tab(input$tabsetpanel)
  })
  
  output$chartA <- renderEcharts4r({
    data <- data.frame(x = 1:2, y = 1:10)
    
    e_charts(data, x = x) %>%
      e_bar(serie = y)
  })
  
  output$chartB <- renderEcharts4r({
    data <- data.frame(x = 1:5, y = 11:20)
    
    e_charts(data, x = x) %>%
      e_bar(serie = y)
  })
  
  observe({
    if (current_tab() == "A") {
      output$chartA <- renderEcharts4r({
        data <- data.frame(x = 1:2, y = 1:10)
        
        e_charts(data, x = x) %>%
          e_bar(serie = y)
      })
    } else {
      output$chartB <- renderEcharts4r({
        data <- data.frame(x = 1:5, y = 11:20)
        
        e_charts(data, x = x) %>%
          e_bar(serie = y)
      })
    }
  })
}

shinyApp(ui, server)