Getting CORINE Land Cover Seamless Vector Data with R
Join the DZone community and get the full member experience.
Join For FreeThanks 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.
Trending
-
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?
Comments