add R support (#105)

narze · Feb 27, 2022 · e147ffa · e147ffa
1 parent c27cd88
commit e147ffa
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/costis-t.r b/R/costis-t.r
@@ -0,0 +1,13 @@
+coffee_to_code <- function(caffeinated_string) {
+decaf_message <- paste("The string does not contain",
+                       "the right amount of caffeine,",
+                       "change it to 'coffee'.", sep = ' ')
+decaffeinated_string <- ifelse(caffeinated_string == 'coffee', 
+                               'code',
+                               decaf_message)
+return(decaffeinated_string)
+}
+
+# coffee_to_code('random_string')
+# coffee_to_code('coffee')
+