Code for this post is shown below.
Two issues:
(1) grid.gedit doesn't work from source file
Reproduce - copy the code shown below into an R source file, and of course save
off in the appropriate location. Then copy the the first line
"source("C:/TestCode.R")" into R and run. Notice that you get the following
error:Error in editDLfromGPath(gPath, specs, strict, grep, global, redraw) :
'gPath' (text) not found
Now however, copy the below into R and runn it all. Notice that the code runs
to completion. Is this expected? Is there a fix?
(2) grid.gedit effects are not preserved
After completing (1). Navigate to the location of the output and open
TestCode.pdf. Notice that the PDF does not preserve the requested RED font.
Is this expected? Is there a work around? Should a different publishing type
be used to preserve the grid.gedit change?
# source("C:/TestCode.R")
VADeaths_flat_df = stack(as.data.frame(VADeaths))
names(VADeaths_flat_df) = c('Data','Person')
counts <- ddply(VADeaths_flat_df, .(cut(Data, breaks=fullseq(range(Data), 20)),
Person), nrow)
names(counts) <- c("bin", "person", "n")
qplot(person, n, data = counts, fill = person, geom="bar", stat="identity",
width = 0.9) + facet_grid(. ~ bin) + opts(axis.text.x = NULL)
grid.gedit("text", gp = gpar(fontsize=14, col="red"))
# Formatting seems to work better for the PDF plot.
Test_title<-paste("C:/TestCode.pdf", sep = "")
ggsave(file=Test_title)
[[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.
