Vérifier les clés

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

Avant de rechercher une clé qui pourrait être absente, vérifie si elle figure parmi les noms avec %in% :

stock <- c(apples = 12, pears = 0)
print("pears" %in% names(stock))
print("plums" %in% names(stock))

Résultat :

[1] TRUE
[1] FALSE

Un if autour de la recherche fournit une valeur par défaut lorsqu’une clé est absente, au lieu de renvoyer NA ou une erreur :

stock <- c(apples = 12, pears = 0)
item <- "plums"
qty <- if (item %in% names(stock)) stock[[item]] else 0
print(qty)

Résultat :

[1] 0

Une clé qui existe avec la valeur 0 est différente d’une clé absente : pears est connue et out of stock, plums n’est pas du tout vendu.

Les listes utilisent la même vérification %in% names(). Un nom absent d’une liste renvoie NULL plutôt qu’une erreur, donc is.null() fonctionne également :

user <- list(name = "Ada", city = "London")
print(is.null(user[["email"]]))
print("city" %in% names(user))

Résultat :

[1] TRUE
[1] TRUE

Un petit utilitaire permet de centraliser la vérification lorsqu’un programme recherche de nombreuses clés :

get_or <- function(x, key, default) {
  if (key %in% names(x)) x[[key]] else default
}
stock <- c(apples = 12)
print(get_or(stock, "apples", 0))
print(get_or(stock, "kiwis", 0))

Résultat :

[1] 12
[1] 0

Défi

Facile

Complétez stock_status(stock, item). Renvoyez unknown si item n'est pas une clé de stock, out of stock si sa valeur est 0, et sinon in stock: suivi de la quantité.

Le code fourni lit le stock sous forme de paires name=quantity séparées par des virgules, puis lit l'article et affiche la valeur renvoyée.

Essayez vous-même

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

# Code d'entrée/sortie fourni : conservez-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])
}
cat(stock_status(stock, input[2]), sep = "\n")