如何使用会话信息连续循环播放动画答案

【问题标题】：How to continuously loop animation in shiny with session information如何使用会话信息连续循环播放动画
【发布时间】：2021-01-27 12:47:33
【问题描述】：

我正在尝试使用 shinyanimate 包在我的闪亮应用程序中连续为图像元素设置动画。
我尝试使用 while 循环来检查会话是否打开，但我不确定为什么这种方法不起作用。

library(shiny)
library(shinyanimate)



ui <- fluidPage(
      
          withAnim(),
      
          div(id = "blood", 
              tags$img(src = "https://inews-prd-a-images.s3.eu-west-2.amazonaws.com/content/uploads/2019/02/Blood-droplet-640x360.jpg",
                       width = "100px", 
                       height = "100px")),
      
      
          # Application title
          titlePanel("Test app")
      
)



server <- function(input, output, session) {
      
          while (session$isClosed() == FALSE){
                
                    observe(startAnim(session, "blood", "pulse"))
                
          }
      
}


shinyApp(ui = ui, server = server)

【问题讨论】：

标签： r shiny css-animations shinyanimate

【解决方案1】：

我通过观察调用中的 while 循环找到了答案

library(shiny)
library(shinyanimate)




ui <- fluidPage(
      
          withAnim(),
      
          div(id = "blood", 
              tags$img(src = "https://inews-prd-a-images.s3.eu-west-2.amazonaws.com/content/uploads/2019/02/Blood-droplet-640x360.jpg",
                       width = "100px", 
                       height = "100px")),
      
      
          # Application title
          titlePanel("Test app"), 
      

      
)



server <- function(input, output, session) {
      
          observe({
                    while(TRUE){
                              startAnim(session, "blood", "pulse")
                    }
          })
}


shinyApp(ui = ui, server = server)

【讨论】：