从Dropbox读取.csv文件并将其绘制在闪亮应用中的传单地图上

Question

我想在地图上绘制4个电台。您可以下载the data from here.

使用下面的代码，我设法绘制了它们

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文件。

在method described in this link之后，我尝试了以下

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）

使用the answer in this link，我尝试了

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'

我尝试了answer of this question

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:

任何有关如何从Dropbox阅读.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

参考from dropbox website