Récapitulatif - Pipeline de données

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 36 sur 64.

Défi

Difficile

Complétez sales_report(records). Chaque enregistrement est de la forme item:quantity:price. Construisez le rapport en trois étapes :

Analysez les enregistrements dans une liste avec lapply().
Conservez les enregistrements dont la quantité est supérieure à 0 avec Filter().
Calculez le total de chaque ligne conservée (quantité multipliée par le prix) avec sapply(), et le total général avec Reduce().

Renvoyez une ligne par enregistrement conservé, tea: 8.00, puis Total: avec le total général et Skipped: avec le nombre d’enregistrements dont la quantité était égale à 0. Affichez les montants avec deux décimales.

Le code fourni lit les enregistrements sous forme d’une ligne séparée par des virgules et affiche chaque ligne renvoyée.

Essayez vous-même

sales_report <- function(records) {
  # Écrivez votre code ici
  character(0)
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")