41 lines
1.0 KiB
R
41 lines
1.0 KiB
R
### R code from vignette source 'saveload.Rnw'
|
|
|
|
###################################################
|
|
### code chunk number 1: saveload.Rnw:23-27
|
|
###################################################
|
|
library(grDevices)
|
|
library(grid)
|
|
ps.options(pointsize = 12)
|
|
options(width = 60)
|
|
|
|
|
|
###################################################
|
|
### code chunk number 2: saveload.Rnw:54-56
|
|
###################################################
|
|
gt <- textGrob("hi")
|
|
save(gt, file = "mygridplot")
|
|
|
|
|
|
###################################################
|
|
### code chunk number 3: saveload.Rnw:60-62
|
|
###################################################
|
|
load("mygridplot")
|
|
grid.draw(gt)
|
|
|
|
|
|
###################################################
|
|
### code chunk number 4: saveload.Rnw:95-98
|
|
###################################################
|
|
grid.grill()
|
|
temp <- recordPlot()
|
|
save(temp, file = "mygridplot")
|
|
|
|
|
|
###################################################
|
|
### code chunk number 5: saveload.Rnw:105-107
|
|
###################################################
|
|
load("mygridplot")
|
|
temp
|
|
|
|
|