Запись расходов

Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 57 из 64.

В этом проекте вы создадите трекер расходов, который считывает команды по одной в каждой строке. За пять шагов он научится записывать расходы, сообщать общую сумму, группировать траты по категориям, выводить самые крупные расходы и подводить итоги за месяц. На каждом шаге расширяется одна и та же функция tracker(commands).

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

Расходы хранятся в датафрейме, где каждой статье расходов соответствует одна строка. Он начинается с трёх пустых столбцов правильных типов, а rbind() добавляет строку для каждой корректной команды ADD:

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)

Результат:

[1] 1
[1] 12.5

Строка ADD должна состоять из четырёх частей и содержать положительную сумму. Преобразуйте сумму с помощью suppressWarnings(as.numeric()), чтобы некорректное значение давало NA вместо предупреждения, а затем проверьте её перед добавлением строки:

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

Результат:

[1] FALSE

Задание

Легко

Завершите tracker(commands) для первой команды:

ADD <date> <category> <amount>: если строка содержит ровно четыре части, а сумма является числом больше 0, добавьте расход и верните ответ added <category> <amount>, указав сумму с двумя знаками после запятой, например added food 12.50. В противном случае верните invalid: , за которым следует вся команда.

Предоставленный код передаёт каждую входную строку в 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]]
    # Напишите свой код здесь
  }
  replies
}

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")