Adding R implementation

Author: cchesser

README.md

@@ -45,4 +45,5 @@ This ASCII representation is a cartoon mascot at [Cerner Engineering](http://eng
 * [bash](https://www.gnu.org/software/bash/manual/) - [art.sh](bash/art.sh) (`bash art.sh`)
 * [python](https://docs.python.org/3/) - [art.py](python/art.py) (`python art.py`)
 * [lua](http://www.lua.org/) - [art.lua](lua/art.lua) (`lua art.lua`)
-* [clojure](http://clojure.org/) - [art.clj](clojure/art.clj) (`java -cp clojure.jar clojure.main art.clj`)
+* [clojure](http://clojure.org/) - [art.clj](clojure/art.clj) (`java -cp clojure.jar clojure.main art.clj`)
+* [r](http://www.r-project.org/) - [art.r](r/art.r) (`Rscript art.r`)

art/alan.txt

@@ -1,6 +1,6 @@
                                                         ___ 
                                                        | __)
-                       .l: .cl. 'l:  :l. cl.     ____  |__ \   
+                       .l: .cl. 'l:  :l. cl.     ____  |__ \
                     .lollddllddoldxlcdkxookc    (___ \ (___/
                   .lkkl,;oo,,ld:,:do,;dd;:Kk      __) )
                   ,XXc,,,;,,,,;,,,;,,,;;,:Kk     / __/ 
@@ -27,4 +27,4 @@
                 :odo:::::cxx:;;:xx::::::dol;
              .oloo:::::ckx;'   .0Kc::::::c0d
              'XKOOOOOOOd'.     .0XOkkkkkkOXx
-       .''''';lllllllllc''''''',lllllllllll;
+       .''''';lllllllllc''''''',lllllllllll;

r/art.r

@@ -0,0 +1,12 @@
+# art.r
+# "2 to the 5th" programming competition @ engineering.cerner.com
+# 
+# Read in the ASCII art file and simply print it to the console. 
+# Note: This assumes you are executing "Rscript art.r" in the current
+# working directory.
+file = file("../art/alan.txt", open = "r")
+lines = readLines(file)
+for (i in 1 : length(lines)) {
+   cat(lines[i], sep = "\n", labels = NULL)
+}
+close(file)