Over a million developers have joined DZone.
{{announcement.body}}
{{announcement.title}}

Getting CORINE Land Cover Seamless Vector Data with R

DZone's Guide to

Getting CORINE Land Cover Seamless Vector Data with R

· Big Data Zone ·
Free Resource

Hortonworks Sandbox for HDP and HDF is your chance to get started on learning, developing, testing and trying out new features. Each download comes preconfigured with interactive tutorials, sample data and developments from the Apache community.

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"))

Hortonworks Community Connection (HCC) is an online collaboration destination for developers, DevOps, customers and partners to get answers to questions, collaborate on technical articles and share code examples from GitHub.  Join the discussion.

Topics:

Published at DZone with permission of

Opinions expressed by DZone contributors are their own.

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}