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

The open source HPCC Systems platform is a proven, easy to use solution for managing data at scale. Visit our Easy Guide to learn more about this completely free platform, test drive some code in the online Playground, and get started today.

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

Managing data at scale doesn’t have to be hard. Find out how the completely free, open source HPCC Systems platform makes it easier to update, easier to program, easier to integrate data, and easier to manage clusters. Download and get started today.

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 }}