Ghi lại các khoản chi

Trong dự án này, bạn sẽ xây dựng một trình theo dõi chi tiêu đọc các lệnh, mỗi dòng một lệnh. Qua năm bước, chương trình sẽ ghi lại các khoản chi, báo cáo tổng số tiền, nhóm chi tiêu theo danh mục, liệt kê các khoản chi lớn nhất và tổng hợp chi tiêu trong một tháng. Mỗi bước mở rộng cùng một hàm tracker(commands).

ADD 2024-05-01 food 12.50
ADD 2024-05-02 rent 500
TOTAL
CATEGORY
TOP 2
MONTH 2024-05

Các khoản chi nằm trong một khung dữ liệu, mỗi hàng ứng với một khoản chi. Khung dữ liệu bắt đầu với ba cột trống có kiểu dữ liệu phù hợp, còn rbind() thêm một hàng cho mỗi ADD hợp lệ:

expenses <- data.frame(date = character(0), category = character(0), amount = numeric(0))
expenses <- rbind(expenses, data.frame(date = "2024-05-01", category = "food", amount = 12.5))
print(nrow(expenses))
print(expenses$amount)

Đầu ra:

[1] 1
[1] 12.5

Một dòng ADD phải có bốn phần và một số tiền dương. Chuyển đổi số tiền bằng suppressWarnings(as.numeric()) để giá trị không hợp lệ cho kết quả NA thay vì cảnh báo, rồi kiểm tra trước khi thêm hàng:

parts <- strsplit("ADD 2024-05-01 food abc", " ")[[1]]
amount <- suppressWarnings(as.numeric(parts[4]))
print(length(parts) == 4 && !is.na(amount) && amount > 0)

Đầu ra:

[1] FALSE