キーの追加と削除

CoddyのRジャーニー「ロジックとフロー」セクションの一部。レッスン 9/64。

名前への代入は、キーが存在する場合はその値を更新し、存在しない場合は新しいエントリを追加します。

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

出力：

apples  pears  plums 
    12      5      8

現在の値に基づいて値を変更するには、同じキーを読み書きします。

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

出力：

[1] 10

ルックアップテーブルは c() を使って空の状態で始め、キーを1つずつ追加して拡張できます：

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

出力：

[1] "Ada"   "Linus"

名前付きベクトルから、他のすべての名前を残してエントリを削除します。

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

出力:

[1] "apples" "plums"

リストの場合、NULLを代入するとエントリが削除されます：

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

出力：

[1] "name"

チャレンジ

簡単

apply_delivery(stock, item, qty) を完成させてください。item の在庫に qty を加算するか、まだ在庫にない場合は数量 qty の item を追加してください。更新された在庫を返してください。

提供されたコードは、在庫を name=quantity のペアとして読み取り、その後に商品と数量を読み取ります。返された在庫の各エントリを、在庫内の順序で name: quantity として出力します。

自分で試してみよう

apply_delivery <- function(stock, item, qty) {
  # ここにコードを書いてください
  stock
}

# 提供された入出力コード：そのままにしておいてください
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 = "")
}