The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.
This is an R package to convert R graphics to Flash file (SWF format). The conversion can be done in two different ways:
plot()
and lines()
. The convention is that every time you call a high-level plotting function, e.g. plot()
, the movie will create a new frame and draw the following shapes in this frame. In this way, you can create some animation by calling a series of plot()
functions.svg2swf()
to convert from SVG to SWF, and image2swf()
to convert PNG and JPG images into a single SWF file.R2SWF
depends on the following libraries:
The source code of libming
is included in R2SWF
, and you need to install the other three by yourself.
For Debian/Ubuntu users, the command to install dependent libraries is
sudo apt-get install zlib1g-dev libpng12-dev libfreetype6-dev
For rpm based systems (e.g. Fedora), try to run
sudo yum install zlib-devel libpng-devel freetype-devel
In the first example, we first create 20 images using png()
function, and then convert them into a single SWF file R2SWF-ex1.swf
.
## Creating png files
png("image-png-%03d.png", 480, 300)
x = seq(0, 2 * pi, length.out = 20)
cols = rainbow(20)
for(i in 1:20) plot(x[i], sin(x[i]), xlim = c(0, 2 * pi), ylim = c(-1, 1),
col = cols[i], pch = 16, cex = 2, main = "PNG => SWF")
dev.off()
## Obtain the filenames
pngfiles = sprintf("image-png-%03d.png", 1:20)
## Convert to SWF
image2swf(pngfiles, "R2SWF-ex1.swf", interval = 0.3)
Using svg2swf
is pretty similar, except that the output animation contains vector graphics.
## Do similar things as above
svg("image-svg-%03d.svg", 8, 5)
x = seq(0, 2 * pi, length.out = 20)
cols = rainbow(20)
for(i in 1:20) plot(x[i], sin(x[i]), xlim = c(0, 2 * pi), ylim = c(-1, 1),
col = cols[i], pch = 16, cex = 2, main = "SVG => SWF")
dev.off()
svgfiles = sprintf("image-svg-%03d.svg", 1:20)
## Convert to SWF
svg2swf(svgfiles, "R2SWF-ex2.swf", interval = 0.3)
The third example shows how to use the SWF device to create (rather than converting) SWF file directly.
swf("R2SWF-ex3.swf")
set.seed(123)
x = rnorm(5)
y = rnorm(5)
for(i in 1:100) {
plot(x <- x + 0.1 * rnorm(5), y <- y + 0.1 * rnorm(5),
xlim = c(-3, 3), ylim = c(-3, 3), col = "steelblue",
pch = 16, cex = 2, xlab = "x", ylab = "y")
title("Brownian Motion")
}
dev.off()
In general, when using the SWF device, high-level plotting functions (e.g. plot()
) will advance the movie by one frame, and low-level functions (lines()
, text()
, etc.) are effective only to the current frame.
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.