Возникли проблемы при добавлении строки в конец вектора, который находится в списке

Question

g = list(vegetable ="carrot", food=c("steak", "eggs"), numbers = c(4,2,1,7))

Интересно, как добавить еще один элемент в еду? Пробовал делать еду <- спаржа, но это не сработало </p>

Answer 1

g[["food"]] <- c(g[["food"]], "asparagus")

Answer 2

Мы можем использовать map_if

library(purrr)
map_if(g, names(g) == 'food', ~ c(.x, 'asparagus'))
#$vegetable
#[1] "carrot"

#$food
#[1] "steak"     "eggs"      "asparagus"

#$numbers
#[1] 4 2 1 7

---

Или с modifyList из base R

modifyList(g, list(food = c(g[['food']], 'asparagus')))
#$vegetable
#[1] "carrot"

#$food
#[1] "steak"     "eggs"      "asparagus"

#$numbers
#[1] 4 2 1 7

Answer 3

Один из вариантов использования purrr может быть:

modify_in(g, "food", ~ c(., "asparagus"))

$vegetable
[1] "carrot"

$food
[1] "steak"     "eggs"      "asparagus"

$numbers
[1] 4 2 1 7

Answer 4

Базовый раствор R

g <- within(g,food <- c(food,"asparagus"))

или

g <- within(g,food <- append(food,"asparagus"))

такой, что

> g
$vegetable
[1] "carrot"

$food
[1] "steak"     "eggs"      "asparagus"

$numbers
[1] 4 2 1 7