合併或R中

Question

合併遞歸兩個列表我有這兩個名單：

firstList <- list(a = list(a_1 = 1:5, 
          a_2 = 5:10), 
        b = 10, 
        c = list(c_1 = 10:20, 
          c_2 = 20:30)) 

secondList <- list(b = 9999, 
        c = list(c_2 = 500:505)) 

我想找到一個優雅的函數（幾行代碼，沒有循環）這樣的：

thirdList <- awesomeFx(firstList, secondList) 

給出me：

$a 
$a$a_1 
[1] 1 2 3 4 5 

$a$a_2 
[1] 5 6 7 8 9 10 


$b 
[1] 9999 

$c 
$c$c_1 
[1] 10 11 12 13 14 15 16 17 18 19 20 

$c$c_2 
[1] 500 501 502 503 504 505 

換句話說，遞歸地替換兩個列表中的元素的函數（某種方式）。

Answer 1

modifyList(firstList, secondList) 

$a 
$a$a_1 
[1] 1 2 3 4 5 

$a$a_2 
[1] 5 6 7 8 9 10 


$b 
[1] 9999 

$c 
$c$c_1 
[1] 10 11 12 13 14 15 16 17 18 19 20 

$c$c_2 
[1] 500 501 502 503 504 505