Rückblick – Datenpipeline

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

Aufgabe

Schwer

Vervollständige sales_report(records). Jeder Datensatz hat das Format item:quantity:price. Erstelle den Bericht in drei Schritten:

Analysiere die Datensätze mit lapply() in eine Liste.
Behalte mit Filter() die Datensätze mit einer Menge größer als 0.
Berechne mit sapply() die Gesamtsumme jeder beibehaltenen Zeile (Menge mal Preis) und mit Reduce() die Gesamtsumme.

Gib eine Zeile pro beibehaltenem Datensatz zurück, tea: 8.00, dann Total: mit der Gesamtsumme und Skipped: mit der Anzahl der Datensätze, deren Menge 0 war. Gib Geldbeträge mit zwei Dezimalstellen aus.

Der bereitgestellte Code liest die Datensätze als durch Kommas getrennte Zeile ein und gibt jede zurückgegebene Zeile aus.

Probier es selbst

sales_report <- function(records) {
  # Schreibe deinen Code hier
  character(0)
}

# Bereitgestellter Ein-/Ausgabecode: belasse ihn wie er ist
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")