getDWDstations: Lädt die Liste verfügbarer Wetterstationen des DWD herunter

In nFrechen/RgetDWDdata: R functions to download data from the DWD (German Weather Service)

Description

Die Liste enthält Stationsnamen, Stations-Kennziffer, Stationshöhe, geografische Breite und Länge und den Beginn der Klimareihe.

Usage

getDWDstations()

Arguments

Braucht keine Argumente

Author(s)

Nanu Frechen

References

Die Stationsliste der täglichen Daten wird von ftp://ftp-cdc.dwd.de heruntergeladen.

See Also

getDWDdata, updateDWDdata

Examples

# Stationsliste herunterladen:
Stationen <- getDWDstations()
## Not run: 
	print(Stationen)

## End(Not run)

# Stationen nach Länge der Messreihe sortieren:
Stationen$"Länge Messreihe (Jahre)" <- 
	year(Sys.time()) - as.numeric(Stationen$von_datum)
## Not run: 
print(Stationen[order(Stationen$"Länge Messreihe (Jahre)"),])

## End(Not run)


if(interactive()){
	# aktuelle Daten aller Stationen herunterladen:
	readline("Wollen Sie wirklich Daten aller Stationen herunterladen 
(dies kann eine Weile dauern [Enter/Esc]")
	DWDdata <- list()
	for(i in (1:length(Stationen$Stationsname))){
		DWDdata[[Stationen$Stationsname[i]]] <- 
			try(getDWDdata(Stationen$"Stations-Kennziffer"[i],
										 Metadaten = T))
	}
	
	
	# Struktur der erzeugten Liste anzeigen:
	str(DWDdata, 1, vec.len=0, give.attr = FALSE)
	
	
	# Fehlerhafte Stationen aus der Liste nehmen:
	Fehlerhaft <- which(lapply(DWDdata, class)=="try-error")
	print(Fehlerhaft)
	Stationen <- Stationen[-Fehlerhaft,]
}


# Karte mit allen Stationen anzeigen:
if(require("maps")){
	map("world", regions = "Germany")
	points(Stationen[,6:5], pch=20, cex=0.5)
	if(interactive())
		Stationen[ identify(Stationen[,6:5], 
		label=Stationen$Stationsname, n=1, col="red"), ]
}

nFrechen/RgetDWDdata documentation built on May 23, 2019, 12:03 p.m.