23 lines
565 B
R
Executable File
23 lines
565 B
R
Executable File
# wps.des: test.image, title = demo image process generating a plot of the Meuse dataset;
|
|
|
|
# wps.in: size, integer, title = image size,
|
|
# abstract = the horizontal and vertical size of the image in pixels,
|
|
# value = 500;
|
|
|
|
#wps.off;
|
|
size <- 420
|
|
setwd(tempdir())
|
|
getwd()
|
|
#wps.on;
|
|
|
|
image <- "output.png"
|
|
png(file = image, width = size, height = size)
|
|
x <- c(1,2,3,4)
|
|
y <- c(1,7,4,2)
|
|
plot(x, y, main = "WPS4R test plot", sub = toString(Sys.time()))
|
|
|
|
graphics.off()
|
|
cat("Saved image ", image, " in ", getwd())
|
|
|
|
# wps.out: id = image, type = png, title = a simple plot;
|