Rangkuman, Pipeline Data

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 36 dari 64.

Tantangan

Sulit

Lengkapi sales_report(records). Setiap catatan berbentuk item:quantity:price. Buat laporan dalam tiga tahap:

Parse catatan menjadi sebuah list dengan lapply().
Simpan catatan dengan kuantitas di atas 0 menggunakan Filter().
Hitung total setiap baris yang disimpan (kuantitas dikali harga) dengan sapply() dan total keseluruhan dengan Reduce().

Kembalikan satu baris untuk setiap catatan yang disimpan, tea: 8.00, lalu Total: dengan total keseluruhan dan Skipped: dengan jumlah catatan yang kuantitasnya 0. Tampilkan nilai uang dengan dua angka desimal.

Kode yang disediakan membaca catatan sebagai satu baris yang dipisahkan koma dan mencetak setiap baris yang dikembalikan.

Coba sendiri

sales_report <- function(records) {
  # Tulis kodemu di sini
  character(0)
}

# Kode input/output yang disediakan: biarkan apa adanya
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")