screw_you.R

#Based on https://github.com/robotlolita/fuck-you
# and https://en.wikipedia.org/wiki/Transformation_of_text

screw_you = function(x){
  chars   = strsplit(paste0(c(" ", rev(letters), rev(LETTERS), 0, 9:1, "&_?!\".';'"), collapse = ""), "")[[1]]
  flipped = strsplit(
    " zʎxʍʌnʇsɹbdouɯlʞɾıɥɓɟǝpɔqɐZ⅄XMΛ∩⊥SᴚΌԀONW⅂⋊ſIH⅁ℲƎᗡƆ𐐒∀068ㄥ9ގㄣƐᘔ⇂⅋‾¿¡„,˙'؛", 
    "")[[1]]
  
  split = strsplit(as.character(substitute(x)), "")[[1]]
  out = paste0(
    "(╯°□°）╯", 
    paste0(flipped[rev(match(split, chars))], collapse = "")
  )
  
  message(out)
}

Example usage:

> screw_you(stringsAsFactors)
(╯°□°）╯sɹoʇɔɐℲs∀sɓuıɹʇs