GildedRose-Refactoring-Kata/R/gilded_rose.R

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