https://github.com/cran/odfWeave
Tip revision: 001a5cc8a90b87dfe3dbc284a2230176aeb8d60f authored by Max Kuhn on 21 December 2010, 00:00:00 UTC
version 0.7.17
version 0.7.17
Tip revision: 001a5cc
adjustImageSize.R
adjustImageSize <- function(x, y, scale = 1, res = 96)
{
# x, y are width, height in inches
# res is image resolution
# scale is a scaling factor to easily adjust
# pch and text sizes
temp <- getImageDefs()
if(temp$device %in% c("bmp", "jpeg", "png", "CairoPNG", "CairoJPEG", "CairoTIFF"))
{
temp$plotHeight <- res * y * scale
temp$plotWidth <- res * x * scale
} else {
temp$plotHeight <- y * scale
temp$plotWidth <- x * scale
}
temp$dispHeight <- y
temp$dispWidth <- x
setImageDefs(temp)
rm(temp)
invisible()
}