library(RMySQL); con<-dbConnect(MySQL(),dbname='skwiki');

dd<-dbGetQuery(con, 'select datum from fm_WaysStats');
dates<-as.Date('2010-12-12')
for(i in 1:length(dd[,1])) dates[i] = as.Date(dd[i,]);
plotonly<-function(data,name='cesty') {
	asci<-replace
	png(file=paste("images/stats-cesty-",name,".png",sep=""), width=400, height=320);
	colnames<-names(data);
	plot(dates,data[,colnames[1]], type='n', axes=FALSE,ylim=c(0,max(data)), ylab='dĺžka ciest', main='Freemap.sk štatistiky Slovenska');
	colors<-rainbow(length(colnames));
	for(i in 1:length(colnames)) {
		lines(dates, data[,colnames[i]], col=colors[i]);
	}
	axis(1, at=dates, labels=format(dates, "%b %y"))
	legend('topleft',colnames,col=colors,title=name,lwd=1);
	dev.off();
}

plottypes<-function(name, types) {
	q<-paste('select `',paste(types, collapse='`,`'), '` from fm_WaysStats', sep='');
	data<-dbGetQuery(con, q);
	plotonly(data,name);
	return(paste('`', paste(types,collapse='`+`'), '` as `',name, '`', sep=''));
}

plotsummary<-function(all) {
	q<-paste('select ',paste(all, collapse=','), ' from fm_WaysStats', sep='');
	data<-dbGetQuery(con,q);
	plotonly(data);
}

all<-c(
plottypes('lesné cesty',c('track','footway','path')),
plottypes('rýchlostné komunikácie',c('motorway','motorway_link','trunk','trunk_link')),
plottypes('autá',c('primary','secondary','tertiary')),
plottypes('pešie',c('footway','pedestrian','path','steps'))
);

plotsummary(all);