单张网页无法加载

Question

我正在尝试使用此功能使用R的传单包绘制一些经纬度点。

showWalk <- function(dt, walkNameStr) {
    dtOneWalk <- dt[walkNameStr == walkNameStr,]
    dtOneWalk$date <- as.POSIXct(dtOneWalk$time,origin="1970-01-01")

    leaflet(dtOneWalk) %>% addProviderTiles(provider = providers$Wikimedia) %>%
    addPolylines(lng=~dtOneWalk$long,lat=~dtOneWalk$lat) %>% 
    addCircles(color="red",popup=~paste(round(dist,3),"<br>",round(vel, 3),"<br>",date)) 
}

每次我在R中运行它时，控制台都会给出以下语句：“假设“ long”和“ lat”分别是经度和纬度”，然后尝试打开该网页，但是大约一分钟后，该网页出现错误。我得到的只是Chrome上的Oops消息和Opera上的Out of Memory消息。在Firefox上，单击debug脚本后，将得到以下结果：

调试部分中绿色突出显示的部分太长，无法发布到问题中。