(x = c(A = ' a b ', b = 'a . s', ' a , b ; ', '\u00a0 ab '))
base::trimws(x)
# raster::trim(x) # do not want to 'Suggests'
trimws_(x)
(xm = matrix(x, nrow = 2L))
trimws_(xm)
#library(microbenchmark)
#microbenchmark(trimws(x), trimws_(x))
Run the code above in your browser using DataLab