闪亮的反应性-动态更改绘图数据行

Question

我知道renderPlot产生可以在Shiny plotOutput函数上显示的图。 我也知道autoinvalidate（）有助于以反应方式计算数据。

我正在使用以下代码显示雷达图（实际上可以是任何图表）：

output$plot2 <- renderPlot({
      autoInvalidate()
        p2<<-ggradar(mtcars_radar[i,])
    })

我不知道如何在每次autoinvalidate（）事件期间将i的值从1更改为300。 还是无论如何，我都可以更改绘图中的数据行，以便绘图以每秒新的数据行动态地进行动画处理。 有人可以帮我吗？

完整的代码在这里：

library(shiny)
library(ggplot2)
 mtcars %>%
 rownames_to_column( var = "group" ) %>%
 mutate_at(vars(-group),funs(rescale)) %>%
 tail(4) %>% select(1:10) -> mtcars_radar

ui <- fluidPage(
  sidebarPanel(

    actionButton("button", "Go!")
  ),
  # Show the plot
  mainPanel(
    plotOutput("plot2")
  )
)

server <- function(input, output) {
  library(ggplot2)
  library(ggradar)
  suppressPackageStartupMessages(library(dplyr))
  library(scales)

  autoInvalidate <- reactiveTimer(2000)
  plot2 <- NULL


  output$plot2 <- renderPlot({
    ggradar(mtcars_radar[1,])
  })
  observeEvent(input$button,{

     output$plot2 <- renderPlot({
      autoInvalidate()
        p2<<-ggradar(mtcars_radar[i,])
        p2
    })
  })

}

# Run the application 
shinyApp(ui = ui, server = server)

有什么帮助吗？

Answer 1

在这里，您需要一个反应性值来存储行索引并每秒更改一次。 我没有库ggradar ，所以我只会打印出当前行索引值。 我也用invalidateLater代替reactiveTimer所建议闪亮的文档 。

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("debug")
)

server <- function(input, output) {

  row_idx_max <- 15
  row_idx <- reactiveVal(0)

  observe({
    isolate(row_idx(row_idx() + 1))
    cur_row_idx <- isolate(row_idx())
    if (cur_row_idx < row_idx_max) {
      invalidateLater(1000)
    }
  })

  output$debug <- renderPrint({
    row_idx()
  })
}

shinyApp(ui, server)