Update zzz.R

emph aded as option

R/zzz.R

@@ -12,6 +12,7 @@ check_latex<- function(df = NULL, column=NULL){
   df[[column]] <- gsub("~", "-"  , df[[column]]) #unable to render with \\~
   df[[column]] <- gsub("\\^", "\\\\^"  , df[[column]])#name truncated and accent to the next letter
   df[[column]] <- gsub("\\textit" , "\\textit{"  , df[[column]], fixed = T)#open italize
+  df[[column]] <- gsub("\\emph" , "\\emph{"  , df[[column]], fixed = T)#open italize
   df[[column]] <- gsub("\\textbf" , "\\textbf{"  , df[[column]], fixed = T)#open bold
   df[[column]] <- gsub("\\end", "}"  , df[[column]], fixed = T)#close italize AND bold
   return(df[,column, drop=FALSE])