Dodawanie i usuwanie kluczy

Część sekcji Logika i przepływ sterowania ścieżki R w Coddy. Lekcja 9 z 64.

Przypisanie do nazwy aktualizuje jej wartość, jeśli klucz istnieje, a jeśli nie — dodaje nowy wpis:

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

Wynik:

apples  pears  plums 
    12      5      8

Aby zmienić wartość na podstawie jej bieżącej wartości, odczytaj i zapisz ten sam klucz:

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

Wynik:

[1] 10

Tablica wyszukiwania może być początkowo pusta dzięki c() i powiększać się po jednym kluczu:

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

Wynik:

[1] "Ada"   "Linus"

Usuń element z wektora nazwanego, zachowując wszystkie pozostałe nazwy:

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

Wynik:

[1] "apples" "plums"

W przypadku listy przypisanie NULL usuwa wpis:

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

Wynik:

[1] "name"

Wyzwanie

Łatwy

Uzupełnij apply_delivery(stock, item, qty). Dodaj qty do stanu magazynowego item albo dodaj item z ilością qty, jeśli nie ma go jeszcze w magazynie. Zwróć zaktualizowany stan magazynowy.

Podany kod odczytuje stan magazynowy jako pary name=quantity, a następnie element i ilość. Wypisuje każdy wpis ze zwróconego stanu magazynowego w formacie name: quantity, w kolejności zgodnej ze stanem magazynowym.

Spróbuj swoich sił

apply_delivery <- function(stock, item, qty) {
  # Wpisz tutaj swój kod
  stock
}

# Dostarczony kod wejścia/wyjścia: pozostaw go bez zmian
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 = "")
}