### Name: getExt
### Title: Get file extension helper function
### Aliases: getExt
### Keywords: misc

### ** Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (path) 
{
    parts <- strsplit(path, "\.")[[1]]
    last <- parts[length(parts)]
    last
  }