Множественная анимация в сюжете Subplot

Question

Попытка анимировать несколько сюжетов с помощью Plotly in R только с одной кнопкой воспроизведения

Чтобы получить значение кадра для каждой из моих записей данных, которые я использую:

    accumulate_by <- function(dat, var) {
  var <- lazyeval::f_eval(var, dat)
  lvls <- plotly:::getLevels(var)
  dats <- lapply(seq_along(lvls), function(x) {
    cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
  })
  dplyr::bind_rows(dats)
}



    d <- df3 %>% select(gen,score) %>% 
      accumulate_by(~gen)
    d2 <- df3 %>% select(gen,cpg_margin) %>% 
      accumulate_by(~gen)

ДалееЯ создаю сюжет

p1 <- d %>%
  plot_ly(
    x = ~gen, 
    y = ~score,
    frame = ~frame, 
    type = 'scatter',
    mode = 'lines', 
    line = list(simplyfy = F)
  ) %>% 
  layout(
    xaxis = list(
      title = "title",
      zeroline = F
    ),
    yaxis = list(
      title = "title",
      zeroline = F
    ),
    title = "title"
  ) %>% 
  animation_opts(
    frame = 100, 
    transition = 0, 
    redraw = FALSE
  ) 

p2 <- d %>%
  plot_ly(
    x = ~gen, 
    y = ~score2,
    frame = ~frame, 
    type = 'scatter',
    mode = 'lines', 
    line = list(simplyfy = F)
  ) %>% 
  layout(
    xaxis = list(
      title = "title",
      zeroline = F
    ),
    yaxis = list(
      title = "title",
      zeroline = F
    ),
    title = "title"
  ) %>% 
  animation_opts(
    frame = 100, 
    transition = 0, 
    redraw = FALSE
  ) 

Наконец, субплот с обоими сюжетами вместе

p <- subplot(p1, p2) %>%
  animation_slider(
    hide = T
    ) %>%
  animation_button(
    x = 1, xanchor = "right", y = 0, yanchor = "bottom"
  )

Но кнопка воспроизведения не запускает анимацию.Нужно ли связывать кнопку воспроизведения внутри графиков?