每次点击之间有延迟的自动点击答案

【问题标题】：autoclick with delay between each click每次点击之间有延迟的自动点击
【发布时间】：2018-08-27 13:53:59
【问题描述】：

我已经学会了使用以下代码自动播放动画 slinder 输入。它以给定的延迟自动播放。但我想做的是在每次点击之间引入延迟。不仅在页面加载之后，我还希望在每次点击之间进行延迟。这是因为绘图需要时间来绘制和显示。

有什么帮助吗？以下是我使用的代码：

server <- function(input, output) {
}

ui <- fluidPage(
        sliderInput("obs", "Number of observations:",
                    min = 10, max = 500, value = 100,
                    animate=T),
        tags$script("$(document).ready(function(){
                        setTimeout(function() {$('.slider-animate-button').click()},10);
                    });")
                )

shinyApp(ui = ui, server = server)

【问题讨论】：

标签： javascript jquery shiny

【解决方案1】：

首先，你需要为你的点击事件声明一个handler()方法，然后在里面指定延迟函数。

例如：

function clickHandler() {
  setTimeout(function(){
     //do something
   }, 10);
}
$('.slider-animate-button').onClick(clickHandler);

【讨论】：