[解決済み] ネストされたリストの最初の要素を選択する

質問

このようなリストがあるとします。

x = list(list(1,2), list(3,4), list(5,6))

ネストされたリストの最初の要素だけを含むリストが欲しいです。これを実現するには、次のような別のリストを返せばよいでしょう。

x1 = lapply(x, function(l) l[[1]])

ショートカット表記はないのでしょうか？

どのように解決するのですか？

あまり近道ではありませんが、こんな方法もあります。

lapply(x, `[[`, 1)
# [[1]]
# [1] 1
#
# [[2]]
# [1] 3
#
# [[3]]
# [1] 5