R/revert.R

In addScales: Adds Labeled Center Line and Scale Lines/Regions to Trellis Plots

Defines functions revert.scaledTrellis revert

Documented in revert revert.scaledTrellis

## revert
## Reverts scaledTrellis object to its last unscaled version
revert <- function(obj,...) UseMethod("revert")

revert.scaledTrellis <- function(obj,...)
{
   orig <- obj$addScales$orig
   obj$panel <- orig$panel
   obj$legend <- orig$legend
   obj$addScales <- NULL
   class(obj) <- "trellis"
   obj
}

Try the addScales package in your browser