Nothing
library(grid)
library(gridSVG)
pdf(file = NULL)
grid.newpage()
# We are just going to be drawing a cross for our pattern
crossGrob <- gTree(children = gList(
linesGrob(),
linesGrob(x = unit(0:1, "npc"), y = unit(1:0, "npc"),
gp = gpar(lwd = 1))
))
# Call the pattern "cross"
# Using a small device size because the line widths
# will be too small otherwise
registerPatternFill("cross", grob = crossGrob,
dev.width = 1, dev.height = 1)
grid.circle(name = "filledcircle")
# Applying the pattern semi-transparently to the circle
grid.patternFill("filledcircle", label = "cross", alpha = 0.5)
grid.export("pattern-test.svg")
dev.off()
# Now lets create a new pattern that uses the existing pattern
# but much larger
pdf(file = NULL)
grid.newpage()
registerPatternFillRef("bigcross", "cross",
width = 0.3, height = 0.3)
grid.circle(name = "filledcircle")
grid.patternFill("filledcircle", label = "bigcross", alpha = 0.5)
grid.export("pattern-test-ref.svg")
dev.off()
# Test pattern offset
pdf(file = NULL)
grid.newpage()
grid.rect(y=1, height=.5, just="top", name="zero-offset")
grid.patternFill("zero-offset", label="cross")
offsetPattern <- pattern(crossGrob, x=unit(1, "cm"),
dev.width=1, dev.height=1)
grid.rect(y=0, height=.5, just="bottom", name="non-zero-offset")
grid.patternFill("non-zero-offset", offsetPattern)
grid.export("pattern-test-offset.svg")
dev.off()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.