stanice?var=teplota&operator=POH
hodnoty?st=4&od=2013-07-01&do=2013-07-31
hodnoty?st=4&var=teplota,srazky&od=2013-01-01
hodnoty?st=4&var=teplota,srazky&od=2013-01-01&interp=true
hodnoty?st=4&var=srazky&od=2013-06-01&do=2013-06-30&krok=h
hodnoty?st=123&od=2012-07-01&do=2012-07-31&v=prutok&krok=h&interp=false
hodnoty?st=123&od=2012-07-01&do=2012-07-31&v=prutok&krok=h&interp=true
mapa?var=snih&od=2013-02-01&do=2013-02-02&stat=max
mapa?var=teplota&od=2012-08-20&do=2012-08-21&stat=avg
datatype <- c("POSIXct")
names(datatype) <- c("datum")
url <- 'http://hydrodata.info/api/values?st=169&v=vodstav,prutok&od=2013-05-20&do=2013-06-30';
data <- read.table(url, sep='\t', header=TRUE,colClasses=datatype)
plot(data$vodstav, data$prutok)
plot(data$datum, data$prutok,type="l", col="blue", lwd=2)
url2 <- url <- 'http://hydrodata.info/api/values?st=169&v=prutok&od=2013-05-20&do=2013-06-30&step=h';
data2 <- read.table(url, sep='\t', header=TRUE,colClasses=datatype)
lines(data2$datum, data2$prutok,type="l",col="red")