带有传单的闪亮应用程序：直到按下goButton时，uiOutput才会显示

Question

我正在开发一个Shiny应用程序，其中传单地图会随着时间变化，但是您可以将其暂停，然后使用滑块查看特定年份。 我已经制作了该功能的虚拟版本并将其发布在这里： https : //seth127.shinyapps.io/slider

我的问题是，选择年份（在server.R中的renderUI内）的sliderInput不会出现，直到您第一次单击goButton（这会暂停动画）。 我似乎不知道为什么。

我希望它默认为2000年（输入$ animate == 0时）。 我添加了一个文本输入来验证此功能是否可以正常工作，并且它适用于renderText，但不适用于renderUI。 任何帮助深表感谢。 代码如下：

服务器

require(maps)
require(leaflet)
require(shiny)

fakeData <- data.frame(year=seq(1974,2014,by=1), 
                   lat=seq(34, 40, by=0.1463415),
                   long=seq(-118,-73, by=1.097561),
                   artist="fake",
                   album="fake",
                   hometown="fake",
                   chart="PJ")

pickYear <- function(year, data) {
    yearCities <- data[as.numeric(data$year)==year, ]
    yearCities
}

shinyServer(
function(input, output) {
    #refresh animation every 60 seconds
     getit <- reactive({
        invalidateLater(60000, session=NULL)
        Sys.time()
    })
    #change animation year every 2 seconds
    year <- reactive({
        if(input$animate %% 2 != 0) {
            invalidateLater(2000, session=NULL)
            1984 + (round(as.numeric(Sys.time() - getit())/2))
        } else {1984 + (round(as.numeric(Sys.time() - getit())/2))}

        })


output$pressedGo <- reactive({if(input$animate==0) {"you haven't pressed go"} else {"now you have"}})

output$reactiveSlider <- renderUI({
    yearVal <- if(input$animate == 0) {2000} else {year()}
    sliderInput('year', label='Pick A Year:', value = yearVal,
                min = 1984, max = 2015, step = 1, sep="")

})

    output$map <- renderLeaflet({
            leaflet(data = pickYear(input$year, fakeData)) %>% addTiles() %>%
                addMarkers(~long, ~lat) %>% setView(-97.887318, 40.422487, 4) 
})

})

用户界面

require(maps)
require(leaflet)
require(shiny)

shinyUI(
pageWithSidebar(
    # Application title
    headerPanel(
        ""
    ),
    sidebarPanel(

    ),
    mainPanel(
        uiOutput("reactiveSlider"),
        actionButton('animate', "Animate/Pause Map"),
        h3(textOutput("pressedGo")),
        p(" "),
        leafletOutput("map")
    )
  )
)

Answer 1

不是对问题的解释，而是可能的替代方法-您可以使用Shiny的本机功能执行所需的操作：

sliderInput("animation", "Looping Animation:", 1984, 2015, 1, step = 1, 
                animate=animationOptions(interval=1, loop=T))

关键是动画参数。 在此处查看更多示例： http : //shiny.rstudio.com/articles/sliders.html