##' @author Don Armstrong <don@@donarmstrong.com>
##' @export
##' @examples
-##' CairoPDF(file="example.pdf",onefile=TRUE)
+##' Cairo::CairoPDF(file="example.pdf",onefile=TRUE)
##' plot(y~x,data.frame(x=1:5,y=1:5))
##' bookmarks <- make.pdf.bookmark("First plot")
##' plot(y~x,data.frame(x=1:5,y=1:5))
##' write.pdf.bookmarks(file="example.pdf",bookmarks)
make.pdf.bookmark <- function(text,level=1,page=NULL) {
if (!CairoHacks.env$device_set_up) {
- Cairo.onSave(device = grDevices::dev.cur(),
+ Cairo::Cairo.onSave(device = grDevices::dev.cur(),
onSave=function(device,page){
ch <- getNamespace("CairoHacks")
print(ls(envir=ch))
##' data=data.frame(y=rnorm(1E4),
##' x=rnorm(1E4))))
##' raster.image <- stop_rasterplot(plot=FALSE)
-##' grid.raster(raster.image)
+##' grid::grid.raster(raster.image)
start_rasterplot <- function(width=NULL,height=NULL) {
x.y.ratio <- grid::convertX(grid::unit(1,"npc"),"mm",valueOnly=TRUE)/
grid::convertY(grid::unit(1,"npc"),"mm",valueOnly=TRUE)
\code{write.pdf.bookmarks}
}
\examples{
-CairoPDF(file="example.pdf",onefile=TRUE)
+Cairo::CairoPDF(file="example.pdf",onefile=TRUE)
plot(y~x,data.frame(x=1:5,y=1:5))
bookmarks <- make.pdf.bookmark("First plot")
plot(y~x,data.frame(x=1:5,y=1:5))
data=data.frame(y=rnorm(1E4),
x=rnorm(1E4))))
raster.image <- stop_rasterplot(plot=FALSE)
-grid.raster(raster.image)
+grid::grid.raster(raster.image)
}
\author{
Don Armstrong