### R code from vignette source 'gridsvg.Rnw'

###################################################
### code chunk number 1: gridsvg.Rnw:51-52
###################################################
options(continue="  ")


###################################################
### code chunk number 2: gridsvg.Rnw:299-300
###################################################
library(grid)


###################################################
### code chunk number 3: gridsvg.Rnw:302-303
###################################################
grid.newpage()


###################################################
### code chunk number 4: grob
###################################################
grid.rect()
grid.circle()


###################################################
### code chunk number 5: gridls (eval = FALSE)
###################################################
## grid.ls()


###################################################
### code chunk number 6: gridsvg.Rnw:312-314
###################################################
grid.rect()
grid.circle()
grid.ls()


###################################################
### code chunk number 7: gridsvg.Rnw:337-338
###################################################
grid.newpage()


###################################################
### code chunk number 8: grobname (eval = FALSE)
###################################################
## grid.rect(name="myrect")
## grid.circle(name="mycircle")


###################################################
### code chunk number 9: gridls (eval = FALSE)
###################################################
## grid.ls()


###################################################
### code chunk number 10: gridsvg.Rnw:347-349
###################################################
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.ls()


###################################################
### code chunk number 11: edit (eval = FALSE)
###################################################
## grid.edit("mycircle", 
##           r=unit(.4, "npc"),
##           gp=gpar(fill="black"))


###################################################
### code chunk number 12: gridsvg.Rnw:378-382
###################################################
pdf("gridsvg-edit%d.pdf", width=2, height=2, onefile=FALSE)
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.edit("mycircle", 
          r=unit(.4, "npc"),
          gp=gpar(fill="black"))
dev.off()


###################################################
### code chunk number 13: gridsvg.Rnw:406-407
###################################################
library(gridSVG)


###################################################
### code chunk number 14: gridsvg.Rnw:409-411
###################################################
grid.rect(name="myrect")
grid.circle(name="mycircle")
gridToSVG("grobs.svg")


###################################################
### code chunk number 15: gridsvg.Rnw:441-443
###################################################
grid.newpage()
options(width=50)


###################################################
### code chunk number 16: gridsvg.Rnw:445-451
###################################################
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.animate("mycircle",
             r=c(seq(.5, .1, -.1), seq(.1, .5, .1)),
             duration=2, rep=TRUE)
class(grid.get("mycircle"))
names(grid.get("mycircle"))


###################################################
### code chunk number 17: animate (eval = FALSE)
###################################################
## gridToSVG("animate.svg")


###################################################
### code chunk number 18: gridsvg.Rnw:471-477
###################################################
grid.newpage()
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.animate("mycircle",
             r=c(seq(.5, .1, -.1), seq(.1, .5, .1)),
             duration=2, rep=TRUE)
gridToSVG("animate.svg")


###################################################
### code chunk number 19: gridsvg.Rnw:499-505
###################################################
png("circleanim%d.png")
for (i in c(seq(.5, .1, -.1), seq(.1, .5, .1))) {
    grid.newpage()
    grid.circle(r=i)
}
dev.off()


###################################################
### code chunk number 20: gridsvg.Rnw:525-526
###################################################
grid.newpage()


###################################################
### code chunk number 21: gridsvg.Rnw:528-533
###################################################
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.garnish("mycircle",
             onmouseover="godark()")
class(grid.get("mycircle"))
names(grid.get("mycircle"))


###################################################
### code chunk number 22: garnish (eval = FALSE)
###################################################
## gridToSVG("garnish.svg")


###################################################
### code chunk number 23: gridsvg.Rnw:553-558
###################################################
grid.newpage()
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.garnish("mycircle",
             onmouseover="godark()")
gridToSVG("garnish.svg")


###################################################
### code chunk number 24: gridsvg.Rnw:583-584
###################################################
grid.newpage()


###################################################
### code chunk number 25: gridsvg.Rnw:586-595
###################################################
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.garnish("mycircle",
             onmouseover="godark()")
grid.script('
  godark = function() {
      circle = document.getElementById("mycircle.1");
      circle.setAttribute("style", "fill:black");
  }')
grid.ls()


###################################################
### code chunk number 26: script (eval = FALSE)
###################################################
## gridToSVG("script.svg")


###################################################
### code chunk number 27: gridsvg.Rnw:616-626
###################################################
grid.newpage()
grid.rect(name="myrect")
grid.circle(name="mycircle")
grid.garnish("mycircle",
             onmouseover="godark()")
grid.script('
  godark = function() {
      circle = document.getElementById("mycircle.1");
      circle.setAttribute("style", "fill:black");
  }')
gridToSVG("script.svg")


###################################################
### code chunk number 28: gridsvg.Rnw:1031-1035
###################################################
svg()
grid.rect(name="myrect")
grid.circle(name="mycircle")
dev.off()