# NOT RUN {
if(requireNamespace("data.table")) {
url1 <- "https://raw.githubusercontent.com/plotly/datasets/master/uber-rides-data1.csv"
ridesRaw_1 <- url1 %>%
data.table::fread(stringsAsFactors = FALSE)
url2 <- "https://raw.githubusercontent.com/plotly/datasets/master/uber-rides-data2.csv"
ridesRaw_2 <- url2 %>%
data.table::fread(stringsAsFactors = FALSE)
url3 <- "https://raw.githubusercontent.com/plotly/datasets/master/uber-rides-data3.csv"
ridesRaw_3 <- url3 %>%
data.table::fread(stringsAsFactors = FALSE)
ridesDf <- list(ridesRaw_1, ridesRaw_2, ridesRaw_3) %>%
data.table::rbindlist()
ridesDf %>%
rasterly(mapping = aes(x = Lat, y = Lon)) %>%
rasterly_points()
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab