Gesamtausgaben

Teil des Abschnitts Logik und Ablaufsteuerung der R-Journey von Coddy. Lektion 58 von 64.

Aufgabe

Einfach

Füge den Befehl TOTAL zu tracker() hinzu. Lass jeden Befehl aus den vorherigen Schritten weiterhin genau wie zuvor funktionieren.

TOTAL: Antworte mit total: , gefolgt von der Summe aller erfassten Beträge mit zwei Dezimalstellen, dann , count: und der Anzahl der Ausgaben, zum Beispiel total: 512.50, count: 2. Wenn nichts erfasst wurde, lautet die Antwort total: 0.00, count: 0.

Der bereitgestellte Code übergibt jede Eingabezeile als einen Befehl an tracker() und gibt jede zurückgegebene Antwort in einer eigenen Zeile aus. Datumsangaben werden als YYYY-MM-DD geschrieben, Kategorien sind kleingeschriebene Wörter, und die Eingabe enthält nur die bisher beschriebenen Befehle.

Probier es selbst

tracker <- function(commands) {
  expenses <- data.frame(date = character(0), category = character(0), amount = numeric(0))
  replies <- c()
  for (cmd in commands) {
    parts <- strsplit(cmd, " ")[[1]]
    if (parts[1] == "ADD") {
      amount <- suppressWarnings(as.numeric(parts[4]))
      if (length(parts) != 4 || is.na(amount) || amount <= 0) {
        replies <- c(replies, paste("invalid:", cmd))
      } else {
        expenses <- rbind(expenses, data.frame(date = parts[2], category = parts[3], amount = amount))
        replies <- c(replies, sprintf("added %s %.2f", parts[3], amount))
      }
    }
  }
  replies
}

# Bereitgestellter Ein-/Ausgabe-Code: belasse ihn wie er ist
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")