if (FALSE) {
locationsDF <- data.frame(
id = c('Kaunas', 'London', 'Bangkok', 'Lisbon'),
lat = c(54.900008, 51.506756, 13.761866, 38.721869),
lng = c(23.957734, -0.128050, 100.544818, -9.138549)
)
locations <- apply(locationsDF, 1, function(x)
make_location(id = x['id'], coords = list(lat = as.numeric(x["lat"]),
lng = as.numeric(x["lng"]))))
supported_locations(unlist(locations, recursive = FALSE))
}
Run the code above in your browser using DataLab