R 闪亮滑块输入按钮 ---> 页面打开时动画

Question

你好，下面是我的 Shiny 应用程序中 UI 部分开头的代码：

shinyUI(navbarPage("Boston Food Inspections", id="nav",
  tabPanel("Interactive map",
           div(class="outer",

               tags$head(
               includeCSS("styles.css")
               ),
           leafletOutput("map", width="100%", height = "100%"),

           absolutePanel(id ="controls", class ="panel panel-default", fixed=TRUE,
                         draggable=TRUE, top=60, left='auto', right=20, bottom='auto',
                         width=300, height='auto',
                         checkboxGroupInput("status", h4("Business License Status"), bstatus,
                                            selected = "Active"),
                         checkboxGroupInput("violations", h4("Violation"), violationType, 
                                            selected="Rodents"),
                         sliderInput('period', h4("Select Time Period"),
                                     min = 2008,
                                     max = 2015,
                                     value = c(2008,2008),
                                     sep="", step=1, ticks=FALSE,animate=animationOptions(loop=T)), round=TRUE
                        )
           )
  ),

现在，我的动画选项指定滑块将有一个播放/暂停按钮。但是，sliderInput 仅在用户打开应用程序时开始播放。我想知道是否有人知道一种简单的方法来改变 javascript，以便 sliderInput 在页面加载后立即开始播放？

感谢。

Answer 1

使用 加载页面后，您可以单击该按钮jQuery。这是一个例子：

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)

该tags$script部件单击按钮。我添加了一个setTimeout将点击延迟 10 毫秒的方法，以等待附加点击处理程序。