# NOT RUN {
\dontrun{
# Get tracks
data(psyo)
# Add columns
dir <- tempdir()
psyo[,"track_color"] <- "bb00aaff"
psyo[,"track_name"] <- psyo[,"id"]
psyo[,"file_name"] <- file.path(dir, paste0(psyo[,"track_name"], ".kml"))
# Export files
export_kml(psyo)
}
# }
Run the code above in your browser using DataLab