load-csv-sf.R

url_csv = "https://github.com/d3/d3-plugins/raw/master/graph/data/cities.csv"

# read-in non-spatial table:
c = readr::read_csv(url_csv)

# convert to spatial:
cs1 = sf::st_as_sf(c, coords = c("longitude", "latitude"))

download.file(url = url_csv, destfile = "cities.csv")

# one liner with sf
cs2 = sf::read_sf("cities.csv", options=c("X_POSSIBLE_NAMES=longitude", "Y_POSSIBLE_NAMES=latitude"))

# static plot:
plot(cs2)

# interactive plot
library(tmap)
ttm()
qtm(cs2)

c_headerless = readr::read_csv(url_csv, skip = 1, col_names = F)
cs3 = sf::st_as_sf(c_headerless, coords = c(3, 2))
qtm(cs3)