R/shortName.R

`shortName` <- 
function (aString, aWidth){
    numCh <- nchar(aString)
    aString2 <- substr(aString, 1, aWidth) # Limit names of terms to 'aWidth' characters
    aString3 <- paste(aString2, ifelse(numCh > (aWidth-5), "...", ""), sep="")
    return(aString3)
}

Try the goProfiles package in your browser

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

goProfiles documentation built on Nov. 8, 2020, 8:12 p.m.