library(shipunov) library(crop) png(filename=(file <- "r.png")) plot(1, type="n", axes=FALSE, xlab="", ylab="") R.logo(1.1, 0.9, cex=25) dev.off.crop(file=file)