The latest version of the Rcompression package (www.omegahat.org/Rcompression) provides a gzip() function that does this. The example in the help page shows how.
There is a source version of the package in the Omegahat repository (and on the package's Web site), but no binaries at this point. D. Daniele Amberti wrote: > system() invokes the OS command specified by command, in the example you gave > it means that gzip is installed and (assuming Windows OS) it is in your > search path. > > I'd like to have a solution that do not use external programs. > > Thanks > Daniele > > -----Original Message----- > From: Ista Zahn [mailto:istaz...@gmail.com] > Sent: 01 October 2009 17:11 > To: Daniele Amberti > Cc: r-help@r-project.org; Rainer M Krug > Subject: Re: [R] Compress (gzip) a pdf device - [ ] Message is from an > unknown sender > > I guess I don't understand what your're trying to do. gzip-ing a file > from within R is easy enough: > > pdf(file="CompressMe.pdf") > plot(rnorm(100)) > dev.off() > system("gzip CompressMe.pdf") > > I think you want something more complicated, but I'm not sure what. > > -Ista > > On Thu, Oct 1, 2009 at 6:41 AM, Daniele Amberti <daniele.ambe...@ors.it> > wrote: >> By now It seems nobody have idea. >> >> zz <- gzfile("C:/gzpdftest.gz", "wb") >> pdf(file = zz) >> plot(USArrests) >> dev.off() >> close(zz) >> >> produce a file named "3" without any extension in my working directory. >> >> Also I don't have any news on how to gzip the pdf afterward (without using >> an external executable). >> >> Daniele >> >> >> From: Rainer M Krug [mailto:r.m.k...@gmail.com] >> Sent: 30 September 2009 10:26 >> To: Daniele Amberti >> Cc: r-help@r-project.org >> Subject: Re: [R] Compress (gzip) a pdf device - [ ] Message is from an >> unknown sender >> >> >> 2009/9/30 Daniele Amberti >> <daniele.ambe...@ors.it<mailto:daniele.ambe...@ors.it>> >> I have not found an easy way to compress a file on filesystem. >> Especially I'd like to compress a pdf from pdf() function/device. Is it >> possible to compress It on the flight? >> I'd like to do something like: >> pdf(gzipconnection()) >> dev.off() >> >> I guess this boils down to a question I asked some time ago concerning >> getting the filename of a pdf() device, as I wanted to create a compressed >> pdf from the uncompressed pdf created by R (not "zipping" the pdf). >> It does not seem to be possible, at least I did not get any response which I >> could use to implement my idea (create my dev.off(), which calls dev.off() >> and afterwards compresses the pdf by using the file name). >> >> If you find a solution, please let me know. >> >> Cheers, >> >> Rainer >> If It is not possible, how can I create a gzip with the pdf? >> >> Thanks >> Daniele A. >> >> >> >> ________________________________ >> >> >> >> ________________________________ >> ORS Srl >> >> Via Agostino Morando 1/3 12060 Roddi (Cn) - Italy >> Tel. +39 0173 620211 >> Fax. +39 0173 620299 / +39 0173 433111 >> Web Site www.ors.it >> >> ------------------------------------------------------------------------------------------------------------------------ >> Qualsiasi utilizzo non autorizzato del presente messaggio e dei suoi >> allegati ? vietato e potrebbe costituire reato. >> Se lei avesse ricevuto erroneamente questo messaggio, Le saremmo grati se >> provvedesse alla distruzione dello stesso >> e degli eventuali allegati. >> Opinioni, conclusioni o altre informazioni riportate nella e-mail, che non >> siano relative alle attivit? e/o >> alla missione aziendale di O.R.S. Srl si intendono non attribuibili alla >> societ? stessa, n? la impegnano in alcun modo. >> >> [[alternative HTML version deleted]] >> >> ______________________________________________ >> R-help@r-project.org mailing list >> https://stat.ethz.ch/mailman/listinfo/r-help >> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html >> and provide commented, minimal, self-contained, reproducible code. >> > > > > -- > Ista Zahn > Graduate student > University of Rochester > http://yourpsyche.org > > ORS Srl > > Via Agostino Morando 1/3 12060 Roddi (Cn) - Italy > Tel. +39 0173 620211 > Fax. +39 0173 620299 / +39 0173 433111 > Web Site www.ors.it > > ------------------------------------------------------------------------------------------------------------------------ > Qualsiasi utilizzo non autorizzato del presente messaggio e dei suoi allegati > è vietato e potrebbe costituire reato. > Se lei avesse ricevuto erroneamente questo messaggio, Le saremmo grati se > provvedesse alla distruzione dello stesso > e degli eventuali allegati. > Opinioni, conclusioni o altre informazioni riportate nella e-mail, che non > siano relative alle attività e/o > alla missione aziendale di O.R.S. Srl si intendono non attribuibili alla > società stessa, né la impegnano in alcun modo. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.