r - 单击时刷新图像（单击时播放动画）

安德里亚的回应在这里非常有帮助。尽管无法做到此事，因为.gif并非每次单击都播放。还有一种在每次单击时获得反馈的方法，该方法包括CSS动画为用户提供视觉反馈。这样做非常简单。在Andrea的代码中，我将调用添加到带有标签$ head（includeCSS（“ ./ www / animate.css”））的CSS文件中，然后在代码部分中，单击加载下一张图像，然后添加了属性class =“动画脉冲”。整个代码如下：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  tags$head(includeCSS("./www/animate.css")),
  useShinyjs(),
  fluidRow(column(div(id = "happy", uiOutput("plot1")),width = 2,offset =1)
  )
  )

server <- function(input, output) {

  # Render a UI element instead of an image
  output$plot1 <- renderUI({
    div(id = "my_img",
        tags$img(src="0.png", height=250, width=250),
        width = 2, offset =1 )
  })

  onclick(
    "plot1", 
    { 
      print("clicked on happy")
      showNotification(h4("Thanks!"), duration = 2,closeButton = FALSE, type = "message")

      # Update UI element on click
      output$plot1 <- renderUI({
        div(id = "my_img",
            tags$img(src="0.png", class = "animated pulse", height=250, width=250),
            width=2, offset=1)
      })
    })
}
shinyApp(ui = ui, server = server)