在R中嵌入了另一个哈希的哈希

Question

我需要在Win 7的Rstudio中设计一个嵌入了另一个哈希的哈希。

library(hash)

myf <- function()
{
 h1 <- hash()
 if (!has.key("first", h1))
{
  list1 <- list()
  h1.son<- hash()
  h1.son["first_son"] <- list1
  h1["first"] <- h1.son
}
 # second check 
 if(!has.key("first_son", h1["first"]))
 {
  list1 <- list()
  h1.son<- hash()
  h1.son["first_son"] <- list1
  h1["first"] <- h1.son
 }  
}

myf()

为什么在＆＃34;第二次检查＆＃34;，h1 [＆＃34; first＆＃34;]仍然没有＃34; first_son＆＃34;的NO键，之前已添加。

更新

我需要一个数据结构：

 in h1, we have a key called 

   first  -->  another hash h1.son with a key called first_son 
          h1.son["first_son"] hold a list 

   h1["first"] --> h1.son["first_son"] --> list

谢谢！