R/stringfunctions.R

stripslash = function (string) {
  laststr = tail(unlist(strsplit(string,"")),1)
  return( ifelse(laststr == "/", substr(string, 1, nchar(string)-1) , string)) 
}
Kenkleinman/rsatscan documentation built on May 27, 2019, 4:06 a.m.