scrip_convert_kml

scrip_convert_kml

#install.packages("gdalUtilities")
library(gdalUtilities)

in_folder <- "/home/lb/nr_data/fire_cci/reference/Africa/Landsat8/Luini/178066/kml_lorenzo/"
out_folder <- file.path(in_folder, "shape_conversion")
dir.create(out_folder)
kml_files <- list.files(in_folder, pattern = "kml$", full.names = TRUE)
for(ff in kml_files) {
    print(ff)
    out_file <- file.path(out_folder, 
                          paste0(tools::file_path_sans_ext(basename(ff)), ".shp"))
    if (!file.exists(out_file)) {
        gdalUtilities::ogr2ogr(ff, out_file)
    }
}