谢谢！

其实我想在sapply中获得每个成员的名字， 我想用如下方式：

test <- list("a" = 1, "b" = 2)
sapply(test, function(element) {print(names(element))})

可是输出：
> test <- list("a" = 1, "b" = 2)
> sapply(test, function(element) {print(names(element))})
NULL
NULL
$a
NULL

$b
NULL

几年过去了，发现自己挖的一个坑还没有填上，手搓一个函数，填个坑：
使用了令人唾弃的循环，在.fn传入采用`[`，不是`[[`, 注意和原apply函数的区别。