R/normalizzaemote.R

In livioivil/TextWiller: Collection of functions for text mining, specially devoted to the italian language

#' normalizzaemote
#' 
#' \code{normalizzaemote} replaces emoticons in \code{testo} with a keyword corresponding the feeling described
#' 
#' @param testo a set of texts to be preprocessed
#' @param perl logical. If TRUE Perl-compatible regexps are used.
#' 
#' @return a set of text where emoticons has been replaced by the respective keyword
#' @author Mattia Da Pont, Livio Finos, Dario Solari
#'  









normalizzaemote <-
  function(testo,perl=TRUE){
    # EMOTEGOOD :) :-) :] :-] =) =] => :> ^^ ^_^ ^-^ ^o^ : ) (: :'D
    testo <- gsub("\\:\\)+|\\:\\-\\)+|\\:\\]+|\\:\\-\\]+|\\=\\)+|\\=\\]+|\\=\\>|\\:\\>|\\^\\^|\\^\\_+\\^|\\^\\-\\^|\\^o\\^|\\:[[:blank:]]\\)+|[[:blank:]]\\([[:blank:]]?\\:|\\:\\'D+",' EMOTEGOOD ', testo, perl=perl)
    #testo <- gsub(":\\-?[\\)\\]]+",' EMOTEGOOD ', testo, perl=TRUE)
    # EMOTEGOOD :d :D :-d :-D =d =D 8d 8D :')
    testo <- gsub("\\:d+|\\:D+|\\:\\-d+|\\:\\-D+|\\=d+|\\=D+|8d+|8D+|\\:\\'+\\)+|v\\.v",' EMOTEGOOD ', testo, perl=perl)
    # EMOTELOVE <3 :*
    testo <- gsub("\\<3+|\u2764|\u2665|\\:\\*+",' EMOTELOVE ', testo, perl=perl)
    # EMOTEBAD :( :-( :[ :-[ =[ =( : ( ):
    testo <- gsub("\\:\\(+|\\:\\-\\(+|\\:\\[+|\\:\\-\\[+|\\=\\[+|\\=\\(+|\\:[[:blank:]]\\(|[[:blank:]]\\([[:blank:]]?\\:",' EMOTEBAD ', testo, perl=perl)
    # EMOTEBAD :'( :-[ D:
    testo <- gsub("\\:\\'+\\(+|\\:\\'\\[|D\\:|\\:\\-\\[",' EMOTEBAD ', testo, perl=perl)
    # EMOTEBAD :| :/ =/ :x :-|
    testo <- gsub("\\:\\|\\:/+|\\=/+|\\:x",' EMOTEBAD ', testo, perl=perl)
    # EMOTEBAD #_# X_X x_x X.X x.x >.< >_< >.> >_>
    testo <- gsub("\\#\\_+\\#|X\\_+X|x\\_+x|X\\.X|x\\.x|>\\.<|>\\_+<|>\\_+>|>\\.>",' EMOTEBAD ', testo, perl=perl)
    # EMOTEWINK ;) ;-) ;] ;-] ;> ;d ;D ;o
    testo <- gsub("\\;\\)+|\\;\\-\\)+|\\;\\]|\\;\\-\\]|\\;\\>|;d+|;D+|;o",' EMOTEWINK ', testo, perl=perl)
    # EMOTESHOCK O.o o.o O.O o.O O_o o_o O_O o_O etc
    testo <- gsub("O\\.o|o\\.o|O\\.O|o\\.O|O\\_+o|o\\_+o|O\\_+O|o\\_+O|\\:OO+|\\=O+|\\-\\.\\-|u\\.u|u\\.\u00F9|\u00F9\\.u|u\\_+u|\u00E7\u00E7|\u00E7_+\u00E7|t_+t|\u00F9\\_+\u00F9|\u00F9\\.\u00F9|\\:oo+|0\\_+0|\\=\\_+\\=|\\.\\_+\\.|\u00F2\u00F2|\u00F2\\_+\u00F2|\\*u+\\*|\\-\\_+\\-|\u00F9\u00F9|\\-\\,\\-|\\-\\-\\'|\\.\\-\\.|\\'\\-\\'",' EMOTESHOCK ', testo, perl=perl)
    # EMOTEAMAZE *_* *-* *o* *.*
    testo <- gsub("\\*\\_+\\*|\\*\\-\\*|\\*\\.\\*",' EMOTEAMAZE ', testo, perl=perl)
    # EMOTEJOKE :P :p =P =p XD xD xd d:
    testo <- gsub("\\:P+[^e]|\\:p+[^e]|\\=P+|\\=p+|XD+|xD+|xd+|[[:blank:]]d\\:",' EMOTEAMAZE ', testo, perl=perl)
    # NEW VERSION
    #testo <- gsub("([:=8]([- '])?[])Dd>]+)|(\\^[-_o]?\\^)","EMOTEGOOD", testo)
    #testo <- gsub("([:=]([- '])?[(|/x*[])|([>Xx#][._][>Xx<#])|(\\):)","EMOTEBAD", testo)
    #testo <- gsub(";-?[])>Ddo]","EMOTEWINK", testo)
    #testo <- gsub("\\*[-._o]\\*","EMOTEAMAZE", testo)
    #testo <- gsub("([:=]-?[pP]+)|(\\b[xX][dD]+\\b)|(\\bd:\\b)","EMOTEJOKE", testo)
    # AGGIUNTA ConfrontoSky
#     testo <- gsub("#0_o"," EMOTESHOCK ",testo, perl=perl)
    testo <- gsub("[[:blank:]]+"," ",testo, perl=perl)
    testo
  }