복습 - 데이터 파이프라인

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 36번째.

챌린지

어려움

sales_report(records)를 완성하세요. 각 레코드는 item:quantity:price 형식입니다. 다음 세 단계로 보고서를 작성하세요:

lapply()를 사용하여 레코드를 목록으로 구문 분석합니다.
Filter()를 사용하여 수량이 0보다 큰 레코드만 남깁니다.
sapply()를 사용하여 남은 각 행의 합계(수량 곱하기 가격)를 계산하고, Reduce()를 사용하여 총합을 계산합니다.

남은 각 레코드마다 한 줄씩 반환하고, tea: 8.00을 출력한 다음 총합과 함께 Total: 을, 수량이 0인 레코드 수와 함께 Skipped: 를 출력하세요. 금액은 소수점 이하 두 자리로 표시하세요.

제공된 코드는 쉼표로 구분된 한 줄로 레코드를 읽고 반환된 각 줄을 출력합니다.

직접 해보기

sales_report <- function(records) {
  # 여기에 코드를 작성하세요
  character(0)
}

# 제공된 입력/출력 코드: 그대로 유지하세요
input <- suppressWarnings(readLines(file("stdin")))
cat(sales_report(strsplit(input[1], ",")[[1]]), sep = "\n")