R/convertRtoY.R

In chrisadolph/tileForShiny: Plot multiple graphical displays in a tiled layout with automated or customizable titles, axes, and annotations

"convertRtoY" <-
function(data,usr) {
  # Convert data from t-axis to x-axis units
  if (length(na.omit(usr[3:4]))==2)
    data <- (data - usr[7])/(usr[8] - usr[7]) * (usr[4] - usr[3]) + usr[3]
  data
}