Displaying 1 result from an estimated 1 matches for "annotation_text".
Did you mean:
annotation_cex
2008 Mar 29
1
A patch for extending pdf device to embed popup text and web links
...es/R/postscript.R
*** R.org/src/library/grDevices/R/postscript.R 2008-03-29
23:36:12.000000000 +0900
--- R/src/library/grDevices/R/postscript.R 2008-03-30 01:41:13.000000000 +0900
***************
*** 344,349 ****
--- 344,420 ----
invisible()
}
+ pdf.annot.box <- function(x0, y0, x1, y1, annotation_text, coord="USER")
+ {
+ ## is the device pdf?
+ if (names(dev.cur())[1] == "pdf") {
+ .External("PDFAnnotBox", x0, y0, x1, y1,
+ as.character(annotation_text[1]), as.character(coord[1]))
+ }
+ }
+
+ pdf.text.box.info <- function()
+ {
+ ## is the d...