Как обновить заголовок графика с помощью слайдера - PullRequest
0 голосов
/ 25 сентября 2019

Я создал фигуру с ползунком, который близко следует этому примеру; 'Sine Wave Slider'

Я действительно хотел бы добавить заголовок, который меняется с каждым шагом в ползунке, но не могу его обновить, когда ползунок перемещается (Я просто получаю стандартный заголовок, который одинаков для каждого шага).Кто-нибудь может помочь?

Вот пример кода:

    library(plotly)

    x <- seq(0,10, length.out = 1000)

    # create data
    aval <- list()
    for(step in 1:11){
      aval[[step]] <-list(visible = FALSE,
                          name = paste0('v = ', step),
                          x=x,
                          y=sin(step*x))
    }
    aval[3][[1]]$visible = TRUE

    # create steps and plot all traces
    steps <- list()
    p <- plot_ly()
    for (i in 1:11) {
      p <- add_lines(p,x=aval[i][[1]]$x,  y=aval[i][[1]]$y, visible = aval[i][[1]]$visible, 
                     name = aval[i][[1]]$name, type = 'scatter', mode = 'lines', hoverinfo = 'name', 
                     line=list(color='00CED1'), showlegend = FALSE)%>%
layout(title = paste("this is chart",i)) # this line adds the title but doesn't update with the slider

      step <- list(args = list('visible', rep(FALSE, length(aval))),
                   method = 'restyle')
      step$args[[2]][i] = TRUE  
      steps[[i]] = step 
    }  

    # add slider control to plot
    p <- p %>%
      layout(sliders = list(list(active = 3,
                                 currentvalue = list(prefix = "Frequency: "),
                                 steps = steps)))
...