R: Buttons for swig

XTR {RSEIS} | R Documentation

## Buttons for swig

### Description

defining functions for swig

### Usage

    XTR(nh, g)
    NEXT(nh, g)
    PREV(nh, g)
    HALF(nh, g)
    MARK(nh, g)
    DOC(nh, g)
    REFRESH(nh, g)
    RESTORE(nh, g)
    ZOOM.out(nh, g)
    ZOOM.in(nh, g)
    RIGHT(nh, g)
    LEFT(nh, g)
    SCALE(nh, g)
    PSEL(nh, g)
    FLIP(nh, g)
    PTS(nh, g)
    FILT(nh, g)
    UNFILT(nh, g)
    SPEC(nh, g)
    WWIN(nh, g)
    SGRAM(nh, g)
    WLET(nh, g)
    XTR(nh, g)
    Pinfo(nh, g)
    TSHIFT(nh, g)
    RMS(nh, g)
    LocStyle(nh, g)
    CENTER(nh, g)
    fspread(nh, g)
    Xwin(nh, g)

### Arguments

`nh` | waveform list for RSEIS
`g` | plotting parameter list for interactive program

### Details

Buttons can be defined on the fly.

### Value

The return value depends on the nature of the function as it is returned to the main code swig. Choices for returning to swig are: break, replot, revert, replace, donothing, exit.

### Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

### See Also

swig

### Examples

    ## Not run:

    MYFUNC<-function(nh, g)
      {
        print("pressed MYFUNC")
        g$sel
        d  <-  data.frame(list(stations=nh$STNS[g$sel],
                       components=nh$COMPS[g$sel]))
         print(d)
        g$action  <-  "replot"
        invisible(list(global.vars=g))
      }

    STDLAB <- c("DONE", "QUIT", "SELBUT" , "PSEL", "MYFUNC" )
    data(GH)
    JJ  <-  swig(GH, sel=1:10, STDLAB=STDLAB)

    ## End(Not run)

[Package RSEIS version 3.7-4 Index]