r - purrr::pluck - リストの最後の要素を取得する方法

Question

ネストされたリストの最後の要素を抽出しようとしています。どうすればこれを行うことができpurrrますか? 以下の例では、結果は値「c」を持つすべての要素になります。私はこれを見たことがありますが、purrr を使用したソリューションに特に興味があります。

どうもありがとう

x <- list(list(1,2,"c"), list(3,"c"), list("c"))
x
#> [[1]]
#> [[1]][[1]]
#> [1] 1
#> 
#> [[1]][[2]]
#> [1] 2
#> 
#> [[1]][[3]]
#> [1] "c"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] 3
#> 
#> [[2]][[2]]
#> [1] "c"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] "c"

map(x, purrr::pluck, tail)
#> Error in map(x, purrr::pluck, tail): could not find function "map"
map(x, purrr::pluck, length(x))
#> Error in map(x, purrr::pluck, length(x)): could not find function "map"

^{reprex パッケージ(v2.0.0)により 2021-05-21 に作成}