OpenSource/GildedRose-Refactoring-Kata
1
0
Fork 0
mirror of https://github.com/emilybache/GildedRose-Refactoring-Kata.git synced 2026-02-16 06:51:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete R directory

Browse Source
This commit is contained in:
Matt Decker 2022-06-26 09:12:26 -05:00 committed by GitHub
parent d5e7861c16
commit 64c184e3a9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 0 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
R/.project
View File

@ -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>

56
R/gilded_rose.R
View File

@ -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
}
)
}

13
R/item.R
View File

@ -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))
}

7
R/runit_gilded_rose.R
View File

@ -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);
}

7
R/test_setup.R
View File

@ -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")

33
R/texttest_fixture.R
View File

@ -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')