如何访问接口函数的源代码。用R语言调用？ [复制]

【问题标题】：How to access the source code of the interface functions .Call in R language? [duplicate]如何访问接口函数的源代码。用R语言调用？ [复制]
【发布时间】：2017-10-06 05:04:43
【问题描述】：

我曾尝试搜索splinefun {stats}中提到的接口函数“.Call(C_SplineCoef,...)”的源码如下：

z <- .Call(C_SplineCoef, min(3L, iMeth), x, y)

但忍不住自己去探索。

【问题讨论】：

你可以去github.com/wch/r-source搜索SplineCoef，找到github.com/wch/r-source/…，然后选择一个github.com/wch/r-source/blob/…
谢谢@user2957945。你能告诉我如何从 RStudio 中访问源代码吗？
据我所知，您不能轻松。我想你可以下载包源，解压缩，然后使用 grep 搜索文件中的 SplineCoef。

标签： r

【解决方案1】：

不能直接在 Rstudio 中显示代码；但是，您可以使用 pryr 包在 github 上自动为您搜索正确的源文件。

首先看一下R函数的源码：

is.unsorted

# function (x, na.rm = FALSE, strictly = FALSE)
# {
#   if (length(x) <= 1L)
#     return(FALSE)
#   if (!na.rm && anyNA(x))
#     return(NA)
#   if (na.rm && any(ii <- is.na(x)))
#     x <- x[!ii]
#   .Internal(is.unsorted(x, strictly))
# }

然后使用：

pryr::show_c_source(.Internal(is.unsorted(x, strictly)))

自动打开浏览器窗口 https://github.com/search?q=SEXP%20attribute_hidden%20do_isunsorted+repo:wch/r-source&type=Code

【讨论】：