根据绘图帧值更新数据帧表值

Question

我有一个绘图，显示了数据帧time的列amount和df。

df：

id   time                 amount    category
1    2018-03-22 15:22:00  78        g1        
2    2018-03-22 15:30:00  77        g1
...   
34   2018-03-23 01:00:00  82        k3 
...

该图是动画，因此该图会逐步显示在累积线动画部分中的本示例（https://plot.ly/r/cumulative-animations/#cumulative-lines-animation）中。我无法发布代码，但看起来与此类似。

网站编码：

library(plotly)

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 <- txhousing %>%
  filter(year > 2005, city %in% c("Abilene", "Bay Area")) %>%
  accumulate_by(~date)

p <- d %>%
  plot_ly(
    x = ~date, 
    y = ~median,
    split = ~city,
    frame = ~frame, 
    type = 'scatter',
    mode = 'lines', 
    line = list(simplyfy = F)
  ) %>% 
  layout(
    xaxis = list(
      title = "Date",
      zeroline = F
    ),
    yaxis = list(
      title = "Median",
      zeroline = F
    )
  ) %>% 
  animation_opts(
    frame = 100, 
    transition = 0, 
    redraw = FALSE
  ) %>%
  animation_slider(
    hide = T
    ) %>%
  animation_button(
    x = 1, xanchor = "right", y = 0, yanchor = "bottom"
  )

我的情节：

现在，我想在图旁边显示一个动态表格，该表格显示了与当前绘制时间有关的数据框值。

所需的输出（如上图所示）：

id           34
amount       82
category     k3

此表的输出应随图同时更新，并始终显示当前时间的值（滑块的值），即frame函数的plotly()属性

因此，关键问题是，我需要访问动画滑块的值，但是该函数没有ID，因此无法调用它。

任何想法如何获得滑块值？还是有另一种方法可以将动画连接到桌子上以实现目标？