R/disp.plot6.R

In tjconstant/photonMonkey: Misc Tools for Photonics

disp.plot6<-function(x,
                     y,
                     z,
                     fx=nothing_x,
                     fy=nothing_y,
                     nx=length(unique(x)),
                     ny=length(unique(y)),
                     method="bilinear",
                     return_data=F,
                     ...){
  
  .Defunct(msg = "disp.plot6 is now defunct.\n Please see http://github.com/tjconstant/disp.plot for the latest version.")
  
  
  interp_grid<-disp.grid(x,y,z,nx,ny,method)
  
  x<-interp_grid$x
  y<-interp_grid$y
  z<-interp_grid$z
  
  if(return_data){
    return(list(fx=fx(x,y),fy=fy(x,y),z=z))
  }else{
    image.plot<-fields::image.plot
    image.plot(fx(x,y),fy(x,y),z,xaxs='i',yaxs='i',...)
  }
  
}


nothing_x<-function(x,y) return(x)
nothing_y<-function(x,y) return(y)