From 64c184e3a9a2251df4e8f044b288283d05631475 Mon Sep 17 00:00:00 2001
From: Matt Decker <mdeckerr@gmail.com>
Date: Sun, 26 Jun 2022 09:12:26 -0500
Subject: [PATCH] Delete R directory

---
 R/.project            | 18 --------------
 R/gilded_rose.R       | 56 -------------------------------------------
 R/item.R              | 13 ----------
 R/runit_gilded_rose.R |  7 ------
 R/test_setup.R        |  7 ------
 R/texttest_fixture.R  | 33 -------------------------
 6 files changed, 134 deletions(-)
 delete mode 100644 R/.project
 delete mode 100644 R/gilded_rose.R
 delete mode 100644 R/item.R
 delete mode 100644 R/runit_gilded_rose.R
 delete mode 100644 R/test_setup.R
 delete mode 100644 R/texttest_fixture.R

diff --git a/R/.project b/R/.project
deleted file mode 100644
index 62d08220..00000000
--- a/R/.project
+++ /dev/null
@@ -1,18 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<projectDescription>
-	<name>GildedRose.R</name>
-	<comment></comment>
-	<projects>
-	</projects>
-	<buildSpec>
-		<buildCommand>
-			<name>de.walware.statet.r.builders.RSupport</name>
-			<arguments>
-			</arguments>
-		</buildCommand>
-	</buildSpec>
-	<natures>
-		<nature>de.walware.statet.base.StatetNature</nature>
-		<nature>de.walware.statet.r.RNature</nature>
-	</natures>
-</projectDescription>
diff --git a/R/gilded_rose.R b/R/gilded_rose.R
deleted file mode 100644
index 3d639dda..00000000
--- a/R/gilded_rose.R
+++ /dev/null
@@ -1,56 +0,0 @@
-source('item.R')
-
-update_quality <- function(items) {
-  lapply(items, 
-    function(item) {
-      
-      if (item$name != "Aged Brie" && item$name != "Backstage passes to a TAFKAL80ETC concert") {
-        if (item$quality > 0) {
-          if (item$name != "Sulfuras, Hand of Ragnaros") {
-            item$quality <- item$quality - 1
-          }
-        }
-      } else {
-        if (item$quality < 50) {
-          item$quality <- item$quality + 1
-          if (item$name == "Backstage passes to a TAFKAL80ETC concert") {
-            if (item$sell_in < 11) {
-              if (item$quality < 50) {
-                item$quality = item$quality + 1
-              }
-            }
-            if (item$sell_in < 6) {
-              if (item$quality < 50) {
-                item$quality = item$quality + 1
-              }
-            }
-          }
-        }
-      }
-      
-      if (item$name != "Sulfuras, Hand of Ragnaros") {
-        item$sell_in <- item$sell_in - 1
-      }
-      
-      if (item$sell_in < 0) {
-        if (item$name != "Aged Brie") {
-          if (item$name != "Backstage passes to a TAFKAL80ETC concert") {
-            if (item$quality > 0) {
-              if (item$name != "Sulfuras, Hand of Ragnaros") {
-                item$quality <- item$quality - 1
-              }
-            }
-          } else {
-            item$quality <- item$quality - item$quality
-          }
-        } else {
-          if (item$quality < 50) {
-            item$quality <- item$quality + 1
-          }
-        }
-      }
-      
-      item
-    } 
-  ) 
-}
diff --git a/R/item.R b/R/item.R
deleted file mode 100644
index 51cc90dc..00000000
--- a/R/item.R
+++ /dev/null
@@ -1,13 +0,0 @@
-item <- function(name, sell_in, quality) {
-  newItem <- list(name=name, sell_in=sell_in, quality=quality)
-  class(newItem) <- 'item'
-  newItem
-}
-
-as.character.item <- function(item) {
-  paste(item$name, ", ", item$sell_in, ", ", item$quality, sep='')
-}
-
-print.item <- function(item) {
-  print.default(as.character(item))
-}
diff --git a/R/runit_gilded_rose.R b/R/runit_gilded_rose.R
deleted file mode 100644
index a0004b7c..00000000
--- a/R/runit_gilded_rose.R
+++ /dev/null
@@ -1,7 +0,0 @@
-source('gilded_rose.R')
-
-test.foo <- function() {
-  items <- list( item('foo', 0, 0) )
-  items <- update_quality(items)
-  checkEquals('fixme', items[[1]]$name);
-}
diff --git a/R/test_setup.R b/R/test_setup.R
deleted file mode 100644
index fc62610e..00000000
--- a/R/test_setup.R
+++ /dev/null
@@ -1,7 +0,0 @@
-# A little helper script to get the testing infrastructure started
-
-# install.packages("RUnit")
-require(RUnit)
-
-# execute single test file
-runTestFile("runit_gilded_rose.R")
diff --git a/R/texttest_fixture.R b/R/texttest_fixture.R
deleted file mode 100644
index ec635e6e..00000000
--- a/R/texttest_fixture.R
+++ /dev/null
@@ -1,33 +0,0 @@
-rm(list=ls())
-
-source('gilded_rose.R')
-
-writeLines('OMGHAI!')
-
-items <- list(
-  item('+5 Dexterity Vest', 10, 20),
-  item('Aged Brie', 2, 0),
-  item('Elixir of the Mongoose', 5, 7),
-  item('Sulfuras, Hand of Ragnaros', 0, 80),
-  item('Sulfuras, Hand of Ragnaros', -1, 80),
-  item('Backstage passes to a TAFKAL80ETC concert', 15, 20),
-  item('Backstage passes to a TAFKAL80ETC concert', 10, 49),
-  item('Backstage passes to a TAFKAL80ETC concert', 5, 49),
-  # This Conjured item does not work properly yet
-  item('Conjured Mana Cake', 3, 6)
-)
-
-days <- 2
-for (day in 0:days) {
-  writeLines(paste('-------- day ', day, ' --------', sep=''))
-  writeLines('name, sellIn, quality')
-  lapply(items, 
-    function(item) {
-      writeLines(as.character(item))
-    }
-  )
-  writeLines('')
-  items <- update_quality(items)
-}
-
-rm('day', 'days', 'items')