使用双列表的问题

Question

我在尝试在R中实现双列表时遇到问题.如果一个子列表仅使用一个元素进行初始化,那么在我尝试添加更多元素之后,我会收到错误消息:

提供的元素多于要替换的元素

这是一个例子:

#
# This is OK
#
a <- list()
a[["elem1"]][["elem2"]] <- c(10,20)
a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30,40))

这是一个输出:

> a
$elem1
$elem1$elem2
[1] 10 20 30 40

但,

#
# This is giving error:
#
a <- list()
a[["elem1"]][["elem2"]] <- c(10)
a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30,40))

Error in a[["elem1"]][["elem2"]] <- c(a[["elem1"]][["elem2"]], c(30, 40)) : 
more elements supplied than there are to replace

这是一个输出:

> a
$elem1
elem2 
10 

我将不胜感激任何帮助.