R/plotTherm.R

In Thermimage: Thermal Image Analysis

#' @export
#' 
plotTherm<-function(bindata, templookup=NULL, w, h, minrangeset=20, maxrangeset=40, trans="I",
                    main=NULL, thermal.palette=flirpal)
  {
  checkmatrix<-is.matrix(bindata)
    
  if(!is.null(templookup) & checkmatrix==F) {
    bindata<-matrix(templookup[bindata], nrow=w, ncol=h)
  }
  else if(is.null(templookup) & checkmatrix==F) {
    bindata<-matrix(bindata, nrow=w, ncol=h)
  }
  
  FUN <- match.fun(trans) 
  
  bindata<-FUN(bindata) 
  bindata[which(bindata>maxrangeset)]<-maxrangeset
  bindata[which(bindata<minrangeset)]<-minrangeset
 
  # use the templookup variable, to reduce the requirement for alltemperature
  # populate temperature matrix in reverse in order to flip image before plotting 
  
  #par(pin=c(6,4.5),cex.sub=1.5, cex.main=1.5)
  
  fields::image.plot(bindata, useRaster=T, bty="n", col=thermal.palette, graphics.reset = T,
                     xlab="", ylab="", xaxt="n", yaxt="n", main=main, 
                     zlim=c(minrangeset,maxrangeset), 
                     legend.shrink=0.85, legend.cex=0.85, asp=h/w)
}