Color text for Pdf or Html output

txtcol.R

# From http://stackoverflow.com/a/37122306
txtcol <- function(x, color) {
  outputFormat = knitr::opts_knit$get("rmarkdown.pandoc.to")
  if (outputFormat == 'latex')
    paste("\\textcolor{", color, "}{", x, "}", sep = "")
  else if (outputFormat == 'html')
    paste("<font color='", color, "'>", x, "</font>", sep = "")
  else
    x
}