[R] PDF Corrupted?

0 views
Skip to first unread message

rkevin...@charter.net

unread,
Oct 27, 2009, 8:42:11 PM10/27/09
to r-h...@r-project.org
I am running R 2.9.2 and creating a PDF that I am trying to open with Adobe Reader 9.2 but when I try to open it the reader responds with

"There was an error opening this document. The file is damaged and cannot be repaired.:

I am using the R command(s):

pdf(file="cat.pdf", title="Historical Sales By Category")
for(j in 1:length(master))
{
d <- as.Date(master[[j]]$Period[1], format="%m/%d/%Y")
fit <- ets(ts(master[[j]]$Quantity, start=c(1900 + as.POSIXlt(d)$year, 1 + as.POSIXlt(d)$mon), frequency=12))
plot(fit, col.axis = "sky blue", col.lab = "thistle")
title(master[[j]]$Category,
cex.main = 2, font.main= 4, col.main= "blue")
}

Any idea what I am doing wrong?

Thank you.

Kevin

______________________________________________
R-h...@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.

Marc Schwartz

unread,
Oct 27, 2009, 8:45:46 PM10/27/09
to rkevin...@charter.net, r-h...@r-project.org

On Oct 27, 2009, at 7:42 PM, rkevin...@charter.net wrote:

> I am running R 2.9.2 and creating a PDF that I am trying to open
> with Adobe Reader 9.2 but when I try to open it the reader responds
> with
>
> "There was an error opening this document. The file is damaged and
> cannot be repaired.:
>
> I am using the R command(s):
>
> pdf(file="cat.pdf", title="Historical Sales By Category")
> for(j in 1:length(master))
> {
> d <- as.Date(master[[j]]$Period[1], format="%m/%d/%Y")
> fit <- ets(ts(master[[j]]$Quantity, start=c(1900 + as.POSIXlt(d)
> $year, 1 + as.POSIXlt(d)$mon), frequency=12))
> plot(fit, col.axis = "sky blue", col.lab = "thistle")
> title(master[[j]]$Category,
> cex.main = 2, font.main= 4, col.main= "blue")
> }
>
> Any idea what I am doing wrong?
>
> Thank you.
>
> Kevin

You are not closing the PDF file with dev.off() when you are done
plotting...

HTH,

Marc Schwartz

Bryan Hanson

unread,
Oct 27, 2009, 8:48:11 PM10/27/09
to rkevin...@charter.net, r-h...@r-project.org
Looks like you need to do dev.off() after the plot to properly close the
file.

Bryan
*************
Bryan Hanson
Acting Chair
Professor of Chemistry & Biochemistry
DePauw University, Greencastle IN USA

On 10/27/09 8:42 PM, "rkevin...@charter.net" <rkevin...@charter.net>
wrote:

Jorge Ivan Velez

unread,
Oct 27, 2009, 8:53:23 PM10/27/09
to rkevin...@charter.net, r-h...@r-project.org
Hi Kevin,

Close the device once the plot is completed:

pdf(...)
plots go here
dev.off()

HTH,
Jorge

[[alternative HTML version deleted]]

Simon Blomberg

unread,
Oct 27, 2009, 9:01:35 PM10/27/09
to rkevin...@charter.net, r-h...@r-project.org
Try doing dev.off() after you finish the plot. That will close the
device and should make it available for viewing.

Cheers,

Simon.


--
Simon Blomberg, BSc (Hons), PhD, MAppStat.
Lecturer and Consultant Statistician
School of Biological Sciences
The University of Queensland
St. Lucia Queensland 4072
Australia
Room 320 Goddard Building (8)
T: +61 7 3365 2506
http://www.uq.edu.au/~uqsblomb
email: S.Blomberg1_at_uq.edu.au

Policies:
1. I will NOT analyse your data for you.
2. Your deadline is your problem.

Statistics is the grammar of science - Karl Pearson

p_con...@slingshot.co.nz

unread,
Oct 27, 2009, 9:58:32 PM10/27/09
to rkevin...@charter.net, r-h...@r-project.org
Quoting rkevin...@charter.net:

> I am running R 2.9.2 and creating a PDF that I am trying to open with
> Adobe Reader 9.2 but when I try to open it the reader responds with
>
> "There was an error opening this document. The file is damaged and
> cannot be repaired.:
>
> I am using the R command(s):
>
> pdf(file="cat.pdf", title="Historical Sales By Category")
> for(j in 1:length(master))
> {
> d <- as.Date(master[[j]]$Period[1], format="%m/%d/%Y")
> fit <- ets(ts(master[[j]]$Quantity, start=c(1900 +
> as.POSIXlt(d)$year, 1 + as.POSIXlt(d)$mon), frequency=12))
> plot(fit, col.axis = "sky blue", col.lab = "thistle")
> title(master[[j]]$Category,
> cex.main = 2, font.main= 4, col.main= "blue")
> }
>
> Any idea what I am doing wrong?

try dev.off() at the end. Yous is an FAQ.

Reply all
Reply to author
Forward
0 new messages