R/symbols.R

In reproducibleRchunks: Automated Reproducibility Checks for R Markdown Documents

ok_symbol <- function(fmt="undef") {
  if (is.null(fmt)) fmt<-"undef"
  if (fmt=="html")
    return("\u2705")
  else
    return("OK ")
}

fail_symbol <- function(fmt="undef") {
  if (is.null(fmt)) fmt<-"undef"
  if (fmt=="html")
    return("\u274C")
  else
    return("[x] ")
}

warning_symbol <- function(fmt="undef") {
  if (is.null(fmt)) fmt<-"undef"
  if (fmt=="html")
    return("&#9888;")
  else
    return("/!\\")
}