Random pick a cool face for you in R console, but cannot put to rinfin now (ಥ﹏ಥ)
cool_face <- function(...) {
faces <- c(" ༼ つ ಥ_ಥ ༽つ " ,
" (ಥ﹏ಥ) ",
" (¬‿¬) ",
" ﴾͡๏̯͡๏﴿ O'RLY? ",
" ಥ_ಥ " ,
" :') ",
" (~_^) " ,
" >_> " ,
" (°,,°) ",
"♥-♥",
"(ᵔᴥᵔ)",
"(ง'̀-'́)ง",
"ʕ•ᴥ•ʔ ",
"(ツ)",
"(ヅ)"
)
x <- sample(1:length(faces), 1)
cat(faces[x])
}