Thanks a lot for yor help - it is working now Rainer
Roger Bivand wrote: > On Thu, 15 Dec 2005, Rainer M Krug wrote: > >> This code below produces empty XXX.png files - if I use plot(), it works >> and if I enter the commands >> >> png(filename=fn) >> bubble(positions, do.sqrt=FALSE, main=q) >> dev.off() >> >> manually, it works as well. > > This a hidden FAQ 7.22: Why do lattice/trellis graphics not work? > > bubble() in package sp or gstat calls lattice function xyplot internally, > so doing print(bubble(...)) should work. > >> I am lost - any help appreciated. >> >> The weird thing is that it worked before I made some changes... (I don't >> have a copy of the working version...). >> >> R version: >> >> platform i686-pc-linux-gnu >> arch i686 >> os linux-gnu >> system i686, linux-gnu >> status >> major 2 >> minor 2.0 >> year 2005 >> month 10 >> day 06 >> svn rev 35749 >> language R >> >> Operating system: SuSE 10 >> >> Rainer >> >> >> ----------------- >> >> library(gstat) >> library(RMySQL) >> library(DAAG) >> >> m <- dbDriver("MySQL") >> con <- dbConnect(m, group = "renpatch_renosterbos") >> >> tbls <- dbListTables(con) >> runs <- 1:5 >> years <- seq(98, 0, -7) >> >> progress_end <- length(tbls) * length(runs) * length(years) >> progress <- 0 >> >> for (year in years) >> { >> fd <- paste("/home/rkrug/Documents/R/plots/Y", year, sep="") >> dir.create(fd, showWarnings=FALSE, recursive = TRUE) >> for (run in runs) >> { >> for (tn in tbls) >> { >> fn <- paste(fd, "/", tn, "_R", run, "_Y", year, ".png", sep="") >> progress <- progress + 1 >> cat(progress, 'of', progress_end, " | ", fn, " | ") >> flush.console() >> if (!file.exists(fn)) >> { >> q <- paste("select X,Y,RX from", tn, "where (_run=", run, ") AND >> (_Year=", year, ")") >> rs <- dbSendQuery(con, q) >> positions <- fetch(rs, n = -1) >> while (!dbHasCompleted(rs)) >> { >> cat(".") >> flush.console() >> } >> cat(length(positions$X), "points") >> png(filename=fn) >> bubble(positions, do.sqrt=FALSE, main=q) >> #plot(positions) >> dev.off() >> pause() >> cat(" | Done \n") >> } >> } >> } >> } >> >> > -- -- Rainer M. Krug, Dipl. Phys. (Germany), MSc Conservation Biology (UCT) Department of Conservation Ecology University of Stellenbosch Matieland 7602 South Africa Tel: +27 - (0)72 808 2975 (w) Fax: +27 - (0)21 808 3304 Cell: +27 - (0)83 9479 042 email: [EMAIL PROTECTED] [EMAIL PROTECTED] ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html