Añadir y eliminar claves

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

Asignar a un nombre actualiza su valor cuando la clave existe y añade una nueva entrada cuando no existe:

stock <- c(apples = 12, pears = 3)
stock["pears"] <- 5
stock["plums"] <- 8
print(stock)

Salida:

apples  pears  plums 
    12      5      8

Para cambiar un valor basándote en su valor actual, lee y escribe la misma clave:

stock <- c(apples = 12, pears = 3)
stock["apples"] <- stock["apples"] - 2
print(stock[["apples"]])

Salida:

[1] 10

Una tabla de búsqueda puede comenzar vacía con c() y crecer una clave a la vez:

ages <- c()
ages["Ada"] <- 36
ages["Linus"] <- 21
print(names(ages))

Salida:

[1] "Ada"   "Linus"

Elimina una entrada de un vector con nombre conservando todos los demás nombres:

stock <- c(apples = 12, pears = 3, plums = 8)
stock <- stock[names(stock) != "pears"]
print(names(stock))

Salida:

[1] "apples" "plums"

En una lista, asignar NULL elimina la entrada:

user <- list(name = "Ada", temp = TRUE)
user[["temp"]] <- NULL
print(names(user))

Salida:

[1] "name"

Desafío

Fácil

Completa apply_delivery(stock, item, qty). Añade qty al inventario de item, o añade item con la cantidad qty cuando todavía no esté en el inventario. Devuelve el inventario actualizado.

El código proporcionado lee el inventario como pares name=quantity, después el artículo y la cantidad. Imprime cada entrada del inventario devuelto como name: quantity, en el orden del inventario.

Pruébalo tú mismo

apply_delivery <- function(stock, item, qty) {
  # Escribe tu código aquí
  stock
}

# Código de entrada/salida suministrado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
stock <- c()
for (pair in strsplit(input[1], ",")[[1]]) {
  kv <- strsplit(pair, "=")[[1]]
  stock[kv[1]] <- as.numeric(kv[2])
}
stock <- apply_delivery(stock, input[2], as.numeric(input[3]))
for (name in names(stock)) {
  cat(name, ": ", stock[[name]], "\n", sep = "")
}