Menambahkan dan Menghapus Kunci

Termasuk bagian Logika dan Alur dalam perjalanan R di Coddy. Pelajaran 9 dari 64.

Menetapkan nilai ke sebuah nama akan memperbarui nilainya jika kuncinya ada, dan menambahkan entri baru jika tidak ada:

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

Output:

apples  pears  plums 
    12      5      8

Untuk mengubah nilai berdasarkan nilainya saat ini, baca dan tulis kunci yang sama:

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

Output:

[1] 10

Tabel pencarian dapat dimulai dalam keadaan kosong dengan c() dan bertambah satu kunci setiap kali:

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

Output:

[1] "Ada"   "Linus"

Hapus sebuah entri dari vektor bernama dengan mempertahankan semua nama lainnya:

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

Output:

[1] "apples" "plums"

Untuk list, menetapkan NULL akan menghapus entri:

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

Output:

[1] "name"

Tantangan

Mudah

Lengkapi apply_delivery(stock, item, qty). Tambahkan qty ke stok item, atau tambahkan item dengan jumlah qty jika belum ada dalam stok. Kembalikan stok yang sudah diperbarui.

Kode yang disediakan membaca stok sebagai pasangan name=quantity, lalu membaca item dan jumlahnya. Kode tersebut mencetak setiap entri dari stok yang dikembalikan sebagai name: quantity, sesuai urutan stok.

Coba sendiri

apply_delivery <- function(stock, item, qty) {
  # Tulis kodemu di sini
  stock
}

# Kode input/output yang disediakan: biarkan tetap seperti ini
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 = "")
}