殺伐とした空気を吹き飛ばすアスキーアートなテラモナギ

R

なんか殺伐とした空気を吹き飛ばせるんじゃないか、そう強く感じさせるパッケージを２つみつけた。
まず、Githubからのインストール。

library(devtools) 
install_github("wrathematics/Rfiglet")
install_github("sckott/cowsay")

Rfigletから使ってみる。

> library(Rfiglet)
> figlet("teramonagi")
 _                                                   _ 
| |_ ___ _ __ __ _ _ __ ___   ___  _ __   __ _  __ _(_)
| __/ _ \ '__/ _` | '_ ` _ \ / _ \| '_ \ / _` |/ _` | |
| ||  __/ | | (_| | | | | | | (_) | | | | (_| | (_| | |
 \__\___|_|  \__,_|_| |_| |_|\___/|_| |_|\__,_|\__, |_|
                                               |___/    
> figlet("teramonagi", font="broadway")
                                                                        
8888888 8888888888 8 8888888888   8 888888888o.            .8.          
      8 8888       8 8888         8 8888    `88.          .888.         
      8 8888       8 8888         8 8888     `88         :88888.        
      8 8888       8 8888         8 8888     ,88        . `88888.       
      8 8888       8 888888888888 8 8888.   ,88'       .8. `88888.      
      8 8888       8 8888         8 888888888P'       .8`8. `88888.     
      8 8888       8 8888         8 8888`8b          .8' `8. `88888.    
      8 8888       8 8888         8 8888 `8b.       .8'   `8. `88888.   
      8 8888       8 8888         8 8888   `8b.    .888888888. `88888.  
      8 8888       8 888888888888 8 8888     `88. .8'       `8. `88888. 
          .         .                                            
         ,8.       ,8.           ,o888888o.     b.             8 
        ,888.     ,888.       . 8888     `88.   888o.          8 
       .`8888.   .`8888.     ,8 8888       `8b  Y88888o.       8 
      ,8.`8888. ,8.`8888.    88 8888        `8b .`Y888888o.    8 
     ,8'8.`8888,8^8.`8888.   88 8888         88 8o. `Y888888o. 8 
    ,8' `8.`8888' `8.`8888.  88 8888         88 8`Y8o. `Y88888o8 
   ,8'   `8.`88'   `8.`8888. 88 8888        ,8P 8   `Y8o. `Y8888 
  ,8'     `8.`'     `8.`8888.`8 8888       ,8P  8      `Y8o. `Y8 
 ,8'       `8        `8.`8888.` 8888     ,88'   8         `Y8o.` 
,8'         `         `8.`8888.  `8888888P'     8            `Yo 
                                            
         .8.           ,o888888o.    8 8888 
        .888.         8888     `88.  8 8888 
       :88888.     ,8 8888       `8. 8 8888 
      . `88888.    88 8888           8 8888 
     .8. `88888.   88 8888           8 8888 
    .8`8. `88888.  88 8888           8 8888 
   .8' `8. `88888. 88 8888   8888888 8 8888 
  .8'   `8. `88888.`8 8888       .8' 8 8888 
 .888888888. `88888.  8888     ,88'  8 8888 
.8'       `8. `88888.  `8888888P'    8 8888

cowsayパッケージにはAAがあるみたい。WinだとSys.setlocale(category = "LC_CTYPE", locale = "C")しておかないとうまく表示されなかった。

> library("cowsay")
> Sys.setlocale(category = "LC_CTYPE", locale = "C")
[1] "C"
> say('time')

 ----- 
 2014-08-20 21:20:06 
 ------ 
    \   ^__^ 
     \  (oo)\ ________ 
        (__)\         )\ /\ 
             ||------w|
             ||      ||

元ネタと例