Displaying 1 result from an estimated 1 matches for "tempvec".
2012 Aug 03
2
Recursive function calls
...g though
all the rpart references I didn't find something that seemed to help with
this problem.
Thank you very much.
trim <- function(x) {
if(length(x)>1) sapply(x[1], trim)
gsub("^[[:space:]]+|[[:space:]]+$", "", x)
}
tempobj = ' many spaces '
tempvec = c(tempobj, tempobj)
templist = list(tempvec, tempvec)
tempdf = data.frame(x = tempvec, y = tempvec)
trim(tempobj)
trim(tempvec)
trim(templist)
trim(tempdf)
Thank you,
Gene Leynes
_____________________________________________
*Data Scientist*
*Mobile: 312-498-7702
**http://www.linkedin.co...