Ajouter et supprimer des clés

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 9 sur 64.

Attribuer une valeur à un nom met à jour sa valeur lorsque la clé existe et ajoute une nouvelle entrée lorsqu’elle n’existe pas :

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

Sortie :

apples  pears  plums 
    12      5      8

Pour modifier une valeur en fonction de sa valeur actuelle, lisez et écrivez la même clé :

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

Sortie :

[1] 10

Une table de correspondance peut commencer vide avec c() et s’agrandir une clé à la fois :

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

Sortie :

[1] "Ada"   "Linus"

Supprimez une entrée d’un vecteur nommé en conservant tous les autres noms :

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

Sortie :

[1] "apples" "plums"

Pour une liste, l’affectation de NULL supprime l’entrée :

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

Sortie :

[1] "name"

Défi

Facile

Complétez apply_delivery(stock, item, qty). Ajoutez qty au stock de item, ou ajoutez item avec la quantité qty lorsqu’il n’est pas encore en stock. Retournez le stock mis à jour.

Le code fourni lit le stock sous forme de paires name=quantity, puis l’article et la quantité. Il affiche chaque entrée du stock retourné sous la forme name: quantity, dans l’ordre du stock.

Essayez vous-même

apply_delivery <- function(stock, item, qty) {
  # Écrivez votre code ici
  stock
}

# Code d'entrée/sortie fourni : gardez-le tel quel
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 = "")
}