R/view.sample.R

In tmcd82070/SDrawNPS: Sample Draw NPS

view.sample <- function(x, dat){

    samp.nm <- dat$out.r.entry$getText()

    if( exists( samp.nm, envir=.GlobalEnv ) ){
        samp <- get( samp.nm, pos=.GlobalEnv )
        View( samp, samp.nm )
    } else {
        error.message(paste( "Sample object", samp.nm, "does not exist."))
    }

}