stylizeContentOwner <- function(x) {
  if (!is.character(x))
    stop ("x should be a string vector")

  x %<>% tolower
  x[grepl("orchard", x)] <- "Orchard"
  x[x == "iris"] <- "Iris"
  x[x == "ioda"] <- "IODA"
  x[x == "red"] <- "RED"

  return(x)
}