Running 'testanimate.R'
  Running 'testattrib.R'
  Running 'testball.R'
  Running 'testclasses.R'
  Running 'testclippath.R'
  Running 'testcomment.R'
  Running 'testelement.R'
  Running 'testfilter.R'
  Running 'testforce.R'
  Running 'testgradientfill.R'
  Running 'testgrid.R'
  Running 'testid.R'
  Running 'testlink.R'
  Running 'testmask.R'
  Running 'testpath.R'
  Running 'testpatternfill.R'
  Running 'testpendulum.R'
  Running 'testplot.R'
  Running 'testplotmath.R'
  Running 'testpolyline.R'
  Running 'testprefix.R'
  Running 'testrotate.R'
Running the tests in 'tests/testrotate.R' failed.
Complete output:
  > 
  > library(grid)
  > library(gridSVG)
  
  Attaching package: 'gridSVG'
  
  The following objects are masked from 'package:grid':
  
      linearGradient, pattern, radialGradient
  
  The following object is masked from 'package:grDevices':
  
      dev.off
  
  > 
  > # Primitives to support:
  > #  rect
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect()
  > popViewport()
  > grid.export("rot-rect-default.svg")
  > # Check justification
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(x=0, y=0, just=c("left", "bottom"))
  > popViewport()
  > grid.export("rot-rect-just.svg")
  > 
  > # Primitives to support:
  > #  text
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.text("rot-test")
  > popViewport()
  > grid.export("rot-text-default.svg")
  > # Check justification
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.circle(r=unit(1, "mm"))
  > grid.text("rot-test", just=c("left", "bottom"))
  > popViewport()
  > grid.export("rot-text-just.svg")
  > 
  > # Primitives to support:
  > #  clipPath
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30, clip=TRUE))
  Warning message:
  In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  > grid.circle(r=.6)
  > popViewport()
  > grid.export("rot-clip-default.svg")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  > 
  > # Primitives to support:
  > #  raster
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.raster(matrix(1:4/5, ncol=2), interp=FALSE)
  > popViewport()
  > grid.export("rot-raster-default.svg")
  > # Check justification
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.raster(matrix(1:4/5, ncol=2), interp=FALSE,
  +             x=0, y=0, just=c("left", "bottom"))
  > popViewport()
  > grid.export("rot-raster-just.svg")
  > 
  > # Primitives to support:
  > #  plotting symbols
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect()
  > grid.points(1:5/6, 1:5/6, pch=1:5)
  > popViewport()
  > grid.export("rot-points.svg")
  > 
  > #####################################
  > # Full STATIC test
  > library(lattice)
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > print(xyplot(mpg ~ disp, mtcars, pch=3),
  +       newpage=FALSE)
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > popViewport()
  > grid.export("rot-lattice.svg")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  4: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  5: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  6: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > #####################################
  > 
  > # Implications for animation:
  > #  rect
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(gp=gpar(col="grey"))
  > grid.rect(x=.1, width=.1, height=.1, just="left", name="r")
  > grid.animate("r", x=c(.1, .8))
  > popViewport()
  > grid.export("rot-rect-animate-x.svg")
  > 
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(gp=gpar(col="grey"))
  > grid.rect(x=.1, width=.1, height=.1, just="left", name="r")
  > grid.animate("r", x=c(.1, .8), height=c(.1, .5))
  > popViewport()
  > grid.export("rot-rect-animate-height.svg")
  > 
  > # Implications for animation:
  > #  text
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(gp=gpar(col="grey"))
  > grid.text("rot-test", x=.1, name="t")
  > grid.animate("t", x=c(.1, .9))
  > popViewport()
  > grid.export("rot-text-animate-x.svg")
  > 
  > # Implications for animation:
  > #  raster
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(gp=gpar(col="grey"))
  > grid.raster(matrix(1-4:1/20, ncol=2), interpolate=FALSE,
  +             x=.8, width=.1, just="left")
  > grid.raster(matrix(1:4/5, ncol=2), interpolate=FALSE,
  +             x=.1, width=.1, just="left", name="r")
  > grid.animate("r", x=c(.1, .8))
  > popViewport()
  > grid.export("rot-raster-animate-x.svg")
  > 
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect(gp=gpar(col="grey"))
  > grid.raster(matrix(1-4:1/20, ncol=2), interpolate=FALSE,
  +             x=.8, width=.1, height=.5, just="left")
  > grid.raster(matrix(1:4/5, ncol=2), interpolate=FALSE,
  +             x=.1, width=.1, just="left", name="r")
  > # NOTE important to specify unit for height because default is NULL!
  > grid.animate("r", x=c(.1, .8), height=unit(c(.1, .5), "npc"))
  > popViewport()
  > grid.export("rot-raster-animate-height.svg")
  > 
  > # Implications for animation:
  > #  plotting symbols
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect()
  > grid.points(5:1/6, 1:5/6, pch=1:5, gp=gpar(col="grey"))
  > grid.points(1:5/6, 1:5/6, pch=1:5, name="p")
  > grid.animate("p", x=animUnit(unit(c(1:5, 5:1)/6, "npc"), id=rep(1:5, 2)))
  > popViewport()
  > grid.export("rot-points-animate-x.svg")
  > 
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > grid.rect()
  > grid.points(5:1/6, 1:5/6, pch=1:5, size=unit(2, "char"), gp=gpar(col="grey"))
  > grid.points(1:5/6, 1:5/6, pch=1:5, name="p")
  > grid.animate("p", x=animUnit(unit(c(1:5, 5:1)/6, "npc"), id=rep(1:5, 2)),
  +              size=animUnit(unit(rep(1:2, each=5), "char"), i=rep(1:5, 2)))
  > popViewport()
  > grid.export("rot-points-animate-size.svg")
  > 
  > #####################################
  > # Full DYNAMIC test
  > library(lattice)
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30))
  > print(xyplot(qsec ~ disp, mtcars, pch=3, col="grey",
  +              ylim=extendrange(c(mtcars$mpg, mtcars$qsec))),
  +       newpage=FALSE, prefix="plotgrey")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > print(xyplot(mpg ~ disp, mtcars, pch=3,
  +              ylim=extendrange(c(mtcars$mpg, mtcars$qsec))),
  +       newpage=FALSE, prefix="plot1")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > grid.animate("plot1.xyplot.points.panel.1.1", 
  +              y=animUnit(unit(c(mtcars$mpg, mtcars$qsec), "native"),
  +                  id=rep(1:nrow(mtcars), 2)))
  > ylab <- grid.get("plot1.ylab")
  > grid.animate("plot1.ylab", y=ylab$y - unit(0:1, "in"),
  +              "fill-opacity"=1:0, "stroke-opacity"=1:0)
  > grid.animate("plotgrey.ylab", y=ylab$y + unit(1:0, "in"), 
  +              "fill-opacity"=0:1, "stroke-opacity"=0:1)
  > popViewport()
  > grid.export("rot-lattice-animate.svg")
  There were 12 warnings (use warnings() to see them)
  > #####################################
  > 
  > # Implications for exported coordinate system info (*.svg.coords.js)
  > #  need to record rotation info 
  > #  AND use it in convertViewportX() etc
  > library(lattice)
  > grid.newpage()
  > pushViewport(viewport(width=.5, height=.5, angle=30,
  +                       name="rot"))
  > print(xyplot(mpg ~ disp, mtcars, pch=3),
  +       newpage=FALSE, prefix="coords")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > downViewport("coords.panel.1.1.off.vp")
  > grid.circle(unit(200, "native"), unit(30, "native"),
  +             r=unit(2, "mm"), gp=gpar(col=NA, fill="grey"))
  > grid.circle(unit(300, "native"), unit(35, "native"),
  +             r=unit(1, "mm"), gp=gpar(col=NA, fill="grey"))
  > upViewport(0)
  > grid.export("rot-lattice-coords.svg",
  +             exportCoords="file", exportMappings="file", usePaths="none")
  Warning messages:
  1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  2: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  4: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  5: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  6: In grid.Call.graphics(C_setviewport, vp, TRUE) :
    cannot clip to rotated viewport
  7: In grid.Call.graphics(C_downviewport, name$name, strict) :
    cannot clip to rotated viewport
  > # Read image back into R
  > library(XML)
  > svg <- xmlParse("rot-lattice-coords.svg")
  Unsupported encoding CPutf8
  Error: 1: Unsupported encoding CPutf8
  Execution halted