util.character

utl.ch>   ## Don't show: 
utl.ch> data(thermo)
thermo$obigt has 1800 aqueous, 2925 total species

utl.ch> ## End Don't show
utl.ch>   ## string to character
utl.ch>   s2c("hello world")
 [1] "h" "e" "l" "l" "o" " " "w" "o" "r" "l" "d"

utl.ch>   s2c("hello world",sep=" ",keep.sep=FALSE)
[1] "hello" "world"

utl.ch>   s2c("3.141592",sep=c(".","9"))
[1] "3"     ".1415" "92"   

utl.ch>   # character to string
utl.ch>   c2s(aminoacids())
[1] "A C D E F G H I K L M N P Q R S T V W Y"

utl.ch>   c2s(aminoacids(),sep=".")
[1] "A.C.D.E.F.G.H.I.K.L.M.N.P.Q.R.S.T.V.W.Y"