Podsumowanie — potok danych

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 36 z 64.

Wyzwanie

Trudny

Uzupełnij sales_report(records). Każdy rekord ma postać item:quantity:price. Przygotuj raport w trzech etapach:

Przekształć rekordy w listę za pomocą lapply().
Pozostaw rekordy, w których ilość jest większa od 0, za pomocą Filter().
Oblicz sumę dla każdego pozostawionego wiersza (ilość razy cena) za pomocą sapply(), a sumę całkowitą za pomocą Reduce().

Zwróć po jednym wierszu dla każdego pozostawionego rekordu, tea: 8.00, następnie Total: z sumą całkowitą oraz Skipped: z liczbą rekordów, w których ilość wynosiła 0. Wyświetl kwoty z dwoma miejscami po przecinku.

Dostarczony kod odczytuje rekordy jako wiersz rozdzielony przecinkami i wyświetla każdy zwrócony wiersz.

Spróbuj swoich sił

sales_report <- function(records) {
  # Wpisz tutaj swój kod
  character(0)
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")