diff options
-rwxr-xr-x | test.r | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,5 +1,6 @@ #!/usr/bin/Rscript --vanilla require(RPostgreSQL) +require(RSvgDevice) nulltime <- strptime("01.01.1970", "%d.%m.%Y") drv <- dbDriver("PostgreSQL") @@ -7,7 +8,8 @@ con <- dbConnect(drv, host="10.2.2.22", user="jack", password="jack", dbname="eb ## plot 1 -png(file = "Rplots.png", width=1500, height=800) +#png(file = "Rplots.png", width=1500, height=800) +devSVG(file="Rplots.svg",width=15,height=10) par(cex=1.25) cat("Starte Abfragen\n") brenner <- dbGetQuery(con, |