AlphaPart (version 0.8.1)

savePlot: savePlot.plotSummaryAlphaPart.R

Description

Save plot objects on the disk for permanent storage. Function savePlot from the grDevices package works for current page on graphical device. This is an attempt to make this function generic so that one can define savePlot methods for particular needs.

Usage

savePlot(...)
# S3 method for default
savePlot(...)
# S3 method for plotSummaryAlphaPart
savePlot(
  x,
  filename = paste("Rplot", type, sep = "."),
  type = c("pdf", "png", "jpeg", "tiff", "bmp"),
  device = dev.cur(),
  pre.hook = NULL,
  traitsAsDir = FALSE,
  ...
)

Arguments

...

Arguments passed to type specific methods, say width and height for type="pdf" etc.

x

Object on which to chose savePLot method.

filename

Character, filename to save to.

type

Character, file/device type.

device

Device, the device to save from.

pre.hook

Function, call some code before calling print method for plots (see examples).

traitsAsDir

Logical, should plots be saved within trait folders; the construction is file.path(dirname(file), trait, basename(file)). folders are created if they do not exist.

Value

Beside the side effect of saving plots to disk, filenames are printed on screen during the process and at the end invisibly returned.

Methods (by class)

• default: Default savePlot method.

• plotSummaryAlphaPart: Save plot objects of class plotSummaryAlphaPart on the disk for permanent storage.

See Also

savePlot help page on the default savePlot method in the grDevices package; savePlot.plotSummaryAlphaPart help page on the method for the objects of plotSummaryAlphaPart class; and plot.summaryAlphaPart for ploting results of summaryAlphaPart object.

Examples

# NOT RUN {
## Partition additive genetic values
res <- AlphaPart(x=AlphaPart.ped, colPath="country", colBV=c("bv1", "bv2"))

## Summarize population by generation (=trend)
ret <- summary(res, by="gen")

## Plot the partitions
p <- plot(ret, ylab=c("BV for trait 1", "BV for trait 2"), xlab="Generation")

## Save the plots
tmp <- savePlot(x = p, filename="test", type="png")

## Remove the files
unlink(tmp)

# }