키 추가 및 제거하기

Coddy R 여정의 논리와 흐름 섹션에 포함된 레슨. 64개 중 9번째.

이름에 값을 할당하면 키가 존재할 때 해당 값이 업데이트되고, 키가 존재하지 않을 때 새 항목이 추가됩니다:

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()로 비어 있는 상태에서 시작하여 한 번에 하나의 키씩 늘려 갈 수 있습니다.

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 = "")
}