Animate plots using echarts4r when quarto slides are on-screen

[shubhamdutta26]

I am making a Revealjs presentation using Quarto in R Studio. I am using the package echarts4r to make my plots. echarts4r comes with default animations. When I render the presentation the default animation has already loaded for all the slides. I want to run the default echarts4r animations when the slide is active (i.e. when the slide is in view) and reset when some other slide is in view. Could someone help me with this?

Here is the code for the quarto presentation.

    ---
    title: "A Title"
    subtitle: "A Subtitle"
    author: "First Last"
    institute: "Some Institute"
    date: today
    self-contained: true
    format: revealjs
    ---
    
    
    ## Introduction
    
    Hello There!
    
    
    ## Pie Chart
    
    ```{r}
    library(tidyverse)
    library(echarts4r)
    
    data <- tibble(name = c("A", "B", "C", "D", "E", "F", "G"),
                   number = c(9.7, 2.1, 2.1, 1.9, 1.9, 1.9, 80.4))
    
    data %>% 
      e_charts(name) %>% 
      e_pie(number, radius = c("50%", "70%")) %>% 
      e_legend(orient = "vertical", right = "5", top = "65%")