如何获取 R 的辅助函数的 C/C++ 源代码？

Question

我想知道在 R 中获取任何辅助（以区别于原始/内部）函数的 C/C++ 源代码的正确方法是什么。 相关问题有here、here、here和here：

我的不同，所以我在我的问题中使用了“secondary”。 例如，read.table() 函数，在 R 控制台中我得到了：

>?read.table

read.table                package:utils                R Documentation

Data Input

Description:

     Reads a file in table format and creates a data frame from it,
     with cases corresponding to lines and variables to fields in the
     file.

Usage:
     read.table(file, header = FALSE, sep = "", quote = "\"'",
        ......

或者

> getAnywhere(read.table)
A single object matching ‘read.table’ was found
It was found in the following places
  package:utils
  namespace:utils
with value

function (file, header = FALSE, sep = "", quote = "\"'", dec = ".", 

     ......

    attr(data, "row.names") <- row.names
    data
}
<bytecode: 0x560ff88edd40>
<environment: namespace:utils>

搜索我得到的网站：

https://svn.r-project.org/R/trunk/src/library/utils/src/utils.c

https://svn.r-project.org/R/trunk/src/library/utils/src/utils.h

如果合理的话，如何获取read.table函数的C/C++源代码而不是R代码？

Answer 1

https://github.com/wch/r-source 的可搜索 R 源代码对此非常有用：

• 首先我们可以查找read.table definition

• actual data reading 由 scan 函数完成，最终使用

  .Internal(scan(file, what, nmax, sep, dec, quote, skip, nlines,
  [...]
  

• 现在scan 是mapped 到do_scan

所以你在这里：read.table 的底层 C 实现可以在 src/main/scan.c 中找到，从函数 do_scan 开始。