Question

我正在使用gganimate创建动画。这需要一些时间，因此我想使用发亮的progress条形来提供反馈。但是，我看到的所有示例都涉及在循环中放置一个update_progress命令。

在无法访问其内部的情况下，如何将闪亮的进度条与gganimate一起使用？

gganimate文档指出：

progress为您提供当前帧（等于帧/ nframe）的动画进度

尽管我不确定如何使用此信息。

按下按钮后，此基本的闪亮应用程序将显示几秒钟。 RStudio的控制台中有一个基于文本的进度指示器。理想情况下，可以向用户显示进度条。

library(shiny)
library(ggplot2)
library(gganimate)

ui <- fluidPage(
  plotOutput("anim_plot"),

  fluidRow(
    column(3,  
           actionButton("make_plot", "Create")
    )
  )
)


server <- function(input, output, session) {
  library(shiny)

  observeEvent(input$make_plot, {

    output$anim_plot <- renderPlot({
      ggplot(mtcars, aes(factor(cyl), mpg)) + 
        geom_boxplot() + 

        transition_states(
          gear,
          transition_length = 2,
          state_length = 1
        ) +
        enter_fade() + 
        exit_shrink() +
        ease_aes('sine-in-out')
    })
  })
}  

shinyApp(ui = ui, server = server)

与gganimate一起使用闪亮的进度指示器

0 个答案: