在應用族函數時使用反引號和運算符

Question

我在最近的回答中看到了一個內置賦值的應用族函數，無法對其進行概括。

lst <- list(a=1, b=2:3)
lst
$a
[1] 1

$b
[1] 2 3

由於長度不等，這還不能成為data.frame。 但是通過強制列表的最大長度，它可以工作：

data.frame(lapply(lst, `length<-`, max(lengths(lst))))
   a b
1  1 2
2 NA 3

這樣可行。 但我從未在應用函數中使用箭頭分配。 我試圖通過概括來理解它：

lapply(lst, function(x) length(x) <- max(lengths(lst)))
$a
[1] 2

$b
[1] 2

這不是正確的輸出。 也不是

lapply(lst, function(x) length(x) <- max(lengths(x)))
 Error in lengths(x) : 'x' must be a list 

這將是一個很好理解的有用技術。 有沒有辦法以匿名函數形式表達賦值？

Answer 1

通過使用匿名函數，我們只返回該函數的值，而不是'x'的值。 我們必須指定return(x)或簡單地指定x 。

lapply(lst, function(x) {
                  length(x) <- max(lengths(lst))
                  x})
#$a
#[1]  1 NA

#$b
#[1] 2 3