Registro de gastos

Parte de la sección Lógica y flujo del Journey de R de Coddy. Lección 57 de 64.

En este proyecto construyes un gestor de gastos que lee comandos, uno por línea. A lo largo de cinco pasos aprende a registrar gastos, informar del total, agrupar los gastos por categoría, enumerar los gastos más grandes y resumir un mes. Cada paso amplía la misma función tracker(commands).

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

Los gastos se almacenan en un marco de datos con una fila por gasto. Comienza con tres columnas vacías de los tipos correctos, y rbind() añade una fila por cada ADD válido:

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)

Salida:

[1] 1
[1] 12.5

Una línea ADD debe tener cuatro partes y un importe positivo. Convierte el importe con suppressWarnings(as.numeric()) para que un valor incorrecto produzca NA en lugar de una advertencia; después, compruébalo antes de añadir la fila:

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

Salida:

[1] FALSE

Desafío

Fácil

Completa tracker(commands) para el primer comando:

ADD <date> <category> <amount>: si la línea tiene exactamente cuatro partes y el importe es un número mayor que 0, añade el gasto y responde added <category> <amount> con el importe con dos decimales, como added food 12.50. De lo contrario, responde invalid: seguido del comando completo.

El código proporcionado pasa cada línea de entrada a tracker() como un comando y muestra cada respuesta devuelta en su propia línea. Las fechas se escriben como YYYY-MM-DD, las categorías son palabras en minúsculas y la entrada contiene únicamente los comandos descritos hasta ahora.

Pruébalo tú mismo

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]]
    # Escribe tu código aquí
  }
  replies
}

# Código de entrada/salida suministrado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
cat(tracker(input), sep = "\n")