Getting CORINE Land Cover Seamless Vector Data with R
Join the DZone community and get the full member experience.Join For Free
Thanks to a helpful SO-Answer I was able to download all CLC vector dataprogrammatically:
require(XML) path_to_files <- "D:/GIS_DataBase/CorineLC/Seamless" dir.create(path_to_files) setwd(path_to_files) doc <- htmlParse("http://www.eea.europa.eu/data-and-maps/data/clc-2006-vector-data-version-2") urls <- xpathSApply(doc,'//*/a[contains(@href,".zip/at_download/file")]/@href') # function to get zip file names get_zip_name <- function(x) unlist(strsplit(x, "/"))[grep(".zip", unlist(strsplit(x, "/")))] # function to plug into sapply dl_urls <- function(x) try(download.file(x, get_zip_name(x), mode = "wb")) # download all zip-files sapply(urls, dl_urls) # function for unzipping foo <- function(x) try(unzip(x)) # unzip all files in dir and delete them afterwards sapply(list.files(pattern = "*.zip"), unzip) # unlink(list.files(pattern = "*.zip"))
R (programming language) Data (computing)
Published at DZone with permission of Kay Cichini, DZone MVB. See the original article here.
Opinions expressed by DZone contributors are their own.
Reducing Network Latency and Improving Read Performance With CockroachDB and PolyScale.ai
Five Java Books Beginners and Professionals Should Read
A Data-Driven Approach to Application Modernization
What Is JHipster?