RStudio_SII_extract_kml.R

library(rvest)
library(stringr)

html <- read_html("http://www.asof.cl/apps/mapaferias/rm.php")

urls <- html %>% html_nodes("option") %>% html_attr("value") %>% na.omit()


maps <- sapply(urls, function(x) {
read_html(paste0("http://www.asof.cl/apps/mapaferias/",x)) %>%
html_nodes("iframe") %>%
html_attr("src")
}
)

ids <- sapply(maps, function(x) {
str_extract(read_html(x) %>% html_nodes(xpath = '//meta[@itemprop="url"]') %>% html_attr('content'), "[-_0-9A-Za-z]+$")
}
)

for (mid in ids) {
download.file(paste0("https://www.google.com/maps/d/u/0/kml?mid=",mid,"&forcekml=1"),paste0("kml/",mid))
}