function (X, FUN, ...)
{
    FUN <- match.fun(FUN)
    if (!is.vector(X) || is.object(X))
        X <- as.list(X)
    .Internal(lapply(X, FUN))
}
<bytecode: 0x00000231bce7e398>
<environment: namespace:base>

用Rstudio的话可以直接在函数名上点击F2