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.

Reply via email to