# \donttest{
library(KMLtoSHAPE)
# Example usage:
data_kml <- system.file("extdata", "testkml.kml", package = "KMLtoSHAPE")
outputShape <- file.path(tempdir(), "shapedata.shp")
# Delete existing shapefile if it exists
if(file.exists(outputShape)) file.remove(outputShape)
# convert kml to shapefile
test_data<-kml_to_shape(data_kml, outputShape)
# }
Run the code above in your browser using DataLab