R/raster.R

In DimitriF/DLC: Deep Layer Chromatography

##' function to plot an image
##' @param data an array, or a matrix
##' @param main an optionnal title
##' @param Title.dim should the dimension be indicated on the plot
##' @param inv set pixel 0,0 in top left as it should be, usefull for interactive plot.
##' @param ... Arguments to be passed to methods
##' @examples
##' data <- f.read.image(source='www/rTLC_demopicture.JPG',height=128)
##' data %>% raster(main='HPTLC plate',Title.dim=T)
##' @author Dimitri Fichou
##' @export

raster <- function(data,main='',Title.dim=F,interpolate = F,inv = F,...){ # a 3D array
  # par(mar=c(0,0,2,0),oma=c(0,0,2,0))
  if(length(dim(data))>2){if(dim(data)[3] > 3){data <- data[,,c(1,2,3)]}}
  # print('SOM.cluster.plot.picture')
  # print(dim(data))
  if(Title.dim == T){main=paste0('Dimensions: ',paste(dim(data),collapse='-'),'\n',main)}

  plot(c(0,dim(data)[2]),if(inv){c(dim(data)[1],0)}else{c(0,dim(data)[1])}, type='n',ylab="",xlab="",main=main,
       ylim = if(inv){c(dim(data)[1],0)}else{c(0,dim(data)[1])},...)

  rasterImage(data,
              xleft = 0,
              ybottom = if(inv){dim(data)[1]}else{0},
              xright = dim(data)[2],
              ytop = if(!inv){dim(data)[1]}else{0},
              interpolate=interpolate)

}
# raster(rtlc,respect=T)