# NOT RUN {
## source is cadastral reference number ##
geocode_cadastral("0636105UF3403N", parse_files = FALSE)
## Use lapply to geocode cadastral references from dataframe columns.
cadastral_references$new <- lapply(cadastral_references$cadref1, geocode_cadastral)
## separate previously generated "new" data into columns usign tidyr
library(tidyr)
separate(cadastral_references, new, into = c('longitude','latitude'), sep = "," )
## source is folder. A loop is needed to process each kml file ##
files <- list.files("folder", full.names = T)
for (f in files) {
coords <- geocode_cadastral(f, parse_files = TRUE)
d <- as.data.frame(rbind(d , as.data.frame(coords, stringsAsFactors = F )))
}
# separate lat/lon into columns if you prefer using tidyr
d <- tidyr::separate(coords, into = c("longitude","latitude"), sep = "," )
# }
Run the code above in your browser using DataLab