从保管箱读取 .csv 文件并将其绘制在闪亮应用程序的传单地图上

Question

我想在地图上绘制 4 个车站。您可以从这里下载数据。

使用下面的代码，我成功地绘制了它们

library(shiny)
library(leaflet)
stations <- read.csv("~path/stations.csv")
ui <- bootstrapPage(
tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
leafletOutput("map", width = "100%", height = "100%")) 
server <- function(input, output) {
output$map <- renderLeaflet({
leaflet(stations) %>%
  addProviderTiles("Esri.WorldTopoMap") %>%
  addCircleMarkers(~x,~y)
})
}
shinyApp(ui, server)

这是结果

现在，在最终的

shiny

应用程序中，我想从 dropbox 中读取

.csv

文件。

按照此链接中描述的方法，我尝试了以下

library(repmis)
myfilename <- "stations.csv"
mykey <- "i9pw95ltjown2uc"
stations <- source_DropboxData(myfilename, key=mykey, sep=",", header=TRUE)

我收到此错误

source_DropboxData(myfilename, key = mykey, sep = ",", header = TRUE) 中的错误： 未使用的参数（myfilename，key = mykey，sep =“，”，header = TRUE）

使用此链接中的答案，我尝试过

stations <- read.csv(url("https://www.dropbox.com/s/i9pw95ltjown2uc/stations.csv?dl=0"))

我收到此错误

read.table 中出现错误（file = file, header = header, sep = sep, quote = quote, : 不允许重复的“row.names”

我尝试了这个问题的答案

stations <- read.csv("https://www.dropbox.com/s/i9pw95ltjown2uc/stations.csv?dl=0",
 row.names=NULL)

但是

str(stations)

显示它有1465个观察值。

#'data.frame':  1465 obs. of  2 variables:

您对如何从保管箱中读取

.csv

以便能够将其绘制在传单地图上有什么建议吗？.

Answer 1

使用

?raw=1

而不是

?dl

stations <- read.csv(url("https://www.dropbox.com/s/i9pw95ltjown2uc/stations.csv?raw=1"))

> head(stations)
  stations         x       y
1 station1  -77.2803 35.8827
2 station2  -79.1243 42.4356
3 station3  -93.4991 30.0865
4 station4 -117.6321 34.0905

参考来自dropbox网站