emojisの前にスペースを入れてください

Question

いくつかのテキストをクリーンアップしようとしています。私はテキストから削除したくないemojisのリストを持っています。これらの絵文字の前にスペースがない場合にのみ、スペースを入れたいと思います。

emojis = as.character(outer(c(":", ";", ":-", ";-","="),c(")", "(", "]", "[", "D", "o", "O", "P", "p","8"),FUN = paste,sep="")) 

もし私が言ったつぶやきを持っていたら。

Tweet = "I am so happy:)" 

私は、コードが実行された後には、

Tweet = "I am so happy :)" 

ようにしたいと思います。

これはかなり簡単なアイデアですが、私はこれを行うためのコードを見つけることができませんでした。彼らの前にスペースを必要と絵文字の

全リスト：

":)" ";)" ":-)" ";-)" "=)" ":(" ";(" ":-(" ";-(" "=(" ":]" ";]" ":-]" ";-]" "=]" ":[" ";[" ":-[" ";-[" "=[" ":D" ";D" ":-D" ";-D" "=D" ":o" ";o" ":-o" ";-o" "=o" ":O" ";O" ":-O" ";-O" "=O" ":P" ";P" ":-P" ";-P" "=P" ":p" ";p" ":-p" ";-p" "=p" ":8" ";8" ":-8" ";-8" "=8" 

Answer 1

正規表現は助けることができます。

emojis = as.character(outer(c(":", ";", ":-", ";-","="),c("\\)", "\\(", "\\]", "\\[", "D", "o", "O", "P", "p","8"),FUN = paste,sep="")) 
pat <- paste0("(\\w+)(", paste(emojis, collapse="|"), ")") 
Tweet = "I am so happy:)" 
sub(pat, "\\1 \\2", Tweet) 
#[1] "I am so happy :)"