使用双重列表时出现的问题

问：

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

提供的元件多于要更换的元件

下面是一个示例：

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

这是 a 的输出：

> 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 的输出：

> a
$elem1
elem2 
10 

我将不胜感激。