R/lastPIX.R

Defines functions lastPIX

Documented in lastPIX

lastPIX<-function(nh, g )
  {

    if(is.null(g$LWPX))
    {
      g$zloc = list(x=NULL, y=NULL)
      g$action="replot"
      invisible(list(global.vars=g))
      
    }
    else
      {
    
    if( identical(legitWPX(g$LWPX, quiet=FALSE),0)  ) {
      
      cat("No saved Picks", sep="\n")
    }
    else
      {

        g$WPX = g$LWPX

      }

  }

    
    g$zloc = list(x=NULL, y=NULL)
    g$action="replot"
    invisible(list(global.vars=g))
    

  }

Try the Rquake package in your browser

Any scripts or data that you put into this service are public.

Rquake documentation built on May 29, 2017, 3:02 p.m.