R中的drop函数源代码

Question

我正在尝试查找drop函数的源代码，但我得到的只是.Rd文件或使用它的引用。

我在以下网址中搜索了它：

https://github.com/wch/r-source/search?p=2&q=drop&utf8=%E2%9C%93

https://github.com/wch/r-source/search?p=3&q=drop&utf8=%E2%9C%93

edit(drop)

抓住了我：

function (x) 
.Internal(drop(x))

有人可以帮助我吗？