小编ANm*_*ike的帖子

我有数据帧df有两个变量lat和lon,现在我需要创建一个Shinydashboard其通过更新后,每取入数据帧下一行值的地图10 seconds.

df

 df <- data.frame("Lat" = c(12.8882, 12.890, 12.891), "Lon" = c(77.58195,77.58190,77.581958))

Ui.R

library(shiny)
library(leaflet)
shinyUI( fluidPage(
                leafletOutput("map1")
                   )
        )

server.R

library(shiny)

 shinyServer(function(input, output, session) {

 output$mymap <- renderLeaflet({
                      leaflet() %>%
                        addTiles() %>%  # Add default OpenStreetMap map tiles
                        addMarkers(lng=df$lon, lat=df$lat)})
                               })

我所知道的只是我可以invalidateLater()用来调用定时器,但我不知道如何实现增量读取数据帧中的行.

Expected Result

我需要一张地图,marker每次移动到下一个位置10 Seconds,移动标记的坐标是通过数据框给出的df.