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() 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]]
2009/9/30 Daniele Amberti <daniele.amberti@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. >-- Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, UCT), Dipl. Phys. (Germany) Centre of Excellence for Invasion Biology Natural Sciences Building Office Suite 2039 Stellenbosch University Main Campus, Merriman Avenue Stellenbosch South Africa Cell: +27 - (0)83 9479 042 Fax: +27 - (0)86 516 2782 Fax: +49 - (0)721 151 334 888 email: Rainer@krugs.de Skype: RMkrug Google: R.M.Krug@gmail.com [[alternative HTML version deleted]]
Daniele Amberti
2009-Oct-01 15:27 UTC
[R] Compress (gzip) a pdf device - [ ] Message is from an unknown sender
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:istazahn at gmail.com]
Sent: 01 October 2009 17:11
To: Daniele Amberti
Cc: r-help at 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.amberti at
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.krug at gmail.com]
> Sent: 30 September 2009 10:26
> To: Daniele Amberti
> Cc: r-help at r-project.org
> Subject: Re: [R] Compress (gzip) a pdf device - [ ] Message is from an
unknown sender
>
>
> 2009/9/30 Daniele Amberti <daniele.amberti at
ors.it<mailto:daniele.amberti at 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 at 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.