x <- c("are :-)) it 8-D he XD on =-D they :D of :-) is :> for :o) that :-/",
"as :-D I xD with :^) a =D to =) the 8D and :3 in =3 you 8) his B^D was")
rm_emoticon(x)
rm_emoticon(x, extract=TRUE)Run the code above in your browser using DataLab