总支出
本课属于 Coddy R 学习旅程的“逻辑与流程”单元。第 58 课，共 64 课。
挑战
简单将 TOTAL 命令添加到 tracker() 中。确保之前步骤中的每条命令都仍然按原样正常工作。
TOTAL：回复内容以total:开头，后面依次是所有已记录金额的总和（保留两位小数）、, count:和支出数量，例如total: 512.50, count: 2。如果没有记录，回复为total: 0.00, count: 0。
提供的代码会将每一行输入作为一条命令传给 tracker()，并将返回的每条回复分别打印在单独一行上。日期格式为 YYYY-MM-DD，类别为小写单词，输入中只包含目前为止所描述的命令。
亲手试试
tracker <- function(commands) {
expenses <- data.frame(date = character(0), category = character(0), amount = numeric(0))
replies <- c()
for (cmd in commands) {
parts <- strsplit(cmd, " ")[[1]]
if (parts[1] == "ADD") {
amount <- suppressWarnings(as.numeric(parts[4]))
if (length(parts) != 4 || is.na(amount) || amount <= 0) {
replies <- c(replies, paste("invalid:", cmd))
} else {
expenses <- rbind(expenses, data.frame(date = parts[2], category = parts[3], amount = amount))
replies <- c(replies, sprintf("added %s %.2f", parts[3], amount))
}
}
}
replies
}
# 提供的输入/输出代码：保持原样
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")
逻辑与流程中的所有课
自己练习： R 在线编译器