# convert data frame
data(quakes)
toGeoJSON(data=quakes, name="quakes", dest=tempdir(), lat.lon=c(1,2))
# convert data frame - minimal call
# storing output file path in variable
data(quakes)
path <- toGeoJSON(data=quakes)
# preserve existing files from overwriting
toGeoJSON(data=quakes, overwrite=FALSE)
# convert Spatial objects
library(sp)
data(meuse)
coordinates(meuse) <- ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")
toGeoJSON(data=meuse, dest=tempdir()) # rgdal package required
crd <- coordinates(meuse)
msl <- SpatialLines(list(Lines(list(Line(crd)), "line1")),
proj4string=CRS("+init=epsg:28992"))
toGeoJSON(data=msl, dest=tempdir()) # rgdal package required
data(meuse.riv)
msp <- SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)),
"meuse.riv")), proj4string=CRS("+init=epsg:28992"))
toGeoJSON(data=msp, dest=tempdir()) # rgdal package required
# convert a shapefile (in zipped archive)
toGeoJSON(data=system.file(package="leafletR", "files", "park_sk.zip"),
name="NatParks_SK", dest=tempdir())
# convert a DXF file
# storing output file path in variable
path <- toGeoJSON(data=system.file(package="leafletR", "files",
"lynx.dxf"), name="lynx_telemetry", dest=tempdir())
# convert a KML file
# using name of data file and saving to working directory
toGeoJSON(system.file(package="leafletR", "files", "peak_sk.kml"))Run the code above in your browser using DataLab