Question

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

请帮忙吗？以下是我使用的代码：

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)

Answer 1

首先，您需要为click事件声明处理程序。然后，在处理程序内部将延迟放在那里。

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

在每次点击之间自动点击延迟

1 个答案: