Как я могу добавить то же значение в рваный список в R

Question

У меня есть список векторов символов:

stuff <- list(c("cocaine", "corine"),
              c("dexitac"),
              c("ecstasy"),
              vector(mode="character"),
              c("amphetamine", "amfetamine",  "raphetamine", "anetamin"))

Я хотел бы добавить еще один элемент (слово «ДРУГОЙ») в конец каждого из векторов символов. Вручную это выглядело бы так:

stuffOTHER <- list(c("cocaine", "corine", "OTHER"),
              c("dexitac", "OTHER"),
              c("ecstasy", "OTHER"),
              c("OTHER"),
              c("amphetamine", "amfetamine",  "raphetamine", "anetamin", "OTHER"))

Как добавить одну и ту же строку к каждому из элементов рваного списка?

Answer 1

Мы можем использовать lapply до l oop над list и объединять (c) «ДРУГОЕ» в конце

stuff2 <- lapply(stuff, c, "OTHER")
identical(stuff2, stuffOTHER)
#[1] TRUE

Или с Map

Map(c, stuff, "OTHER")