作者celestialgod (天)
看板R_Language
标题Fw: [程式] 请问如何看R中 Package 的程式码
时间Fri Aug 28 18:15:42 2015
※ [本文转录自 Statistics 看板 #1GfWMcwv ]
作者: Wush978 (拒看低质媒体) 看板: Statistics
标题: Re: [程式] 请问如何看R中 Package 的程式码
时间: Fri Nov 16 17:21:39 2012
※ 引述《henry7448 (P=MC)》之铭言：
: 如标题
: 想请问要如何能观看R中Package的原始程式码
: 谢谢
这里列一下我知道的方法，
方法1:
如果该函数有被export到`R_GlobalEnv`,
那只要载入package後, 打函数名称後，会在console印出函数内容
例：
```
library(inline)
cxxfunction
```
方法2:
有时候想要看某些没有被export的函数内容时，需要加上namespace:
<package name>:::<function name>
例:
```
library(Rcpp)
SHLIB # Error: object 'SHLIB' not found
Rcpp:::SHLIB
```
方法3:
直接下载source code下来看
例：
```
download.packages("Rcpp", destdir=".", type="source")
```
应该会下载一个 Rcpp-<版本>.tar.gz
解压缩後找下面两个资料夹看source code:
R // R code
src // C code
方法4:
有时候函数名称只是一个方法，而根据物件的不同会套用不同的程式码。
例如`plot`, 这种函数叫作"Generic Function"
这很麻烦，因为R目前有S3, S4两种方式来套用这种函数。
举例来说，我想要检查以下这段程式码中的`plot`的实际指令：
```
data(iris)
g <- lm(Sepal.Length~Sepal.Width,iris)
plot(g)
```
如果直接输入`?plot`，只会看到Description写说这是个Generic Function
所以我们需要先知道`g`的class是什麽
```
class(g) # [1] "lm"
```
然後打
```
methods(plot)
```
可以看到`plot.lm`
这时候只要
```
plot.lm
```
就可以看到程式码了
但是如果是想要看以下`plot`的程式码，就更麻烦了：
```
data(iris)
plot(iris)
```
可以注意到`class(iris)`查到的是class: data.frame
而`methods(plot)`中的`plot.data.frame*`後面有个星号代表那是Non-visible function
有趣的是我可以输入`?plot.data.frame`看到说明
说明的左上角指示这个指令是来自`graphics`这个package
所以只要输入
```
graphics:::plot.data.frame
```
就可以看到原始码
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.166.94.247
※ 编辑: Wush978 来自: 118.166.94.247 (11/16 17:21)
1F：推 blackalert:推～ 我之前遇到*都不知道要怎看 XD 11/16 17:48
2F：推 obarisk:推完整的介绍 11/16 19:40
3F：推 lin15:推!! 11/16 19:50
4F：推 henry7448:太棒了 谢谢 11/16 20:41
5F：推 bmka:推 11/16 21:36
6F：推 laba1014:赞 11/17 11:07
7F：→ clickhere:方法4: 只适用於S3 function. 11/17 16:51
8F：→ clickhere:S4 method可用 showMethods(), getMethod(). 11/17 16:52
9F：→ clickhere:* 是因为 NAMESPACE 并没有 export 该 function. 11/17 16:55
10F：→ clickhere:Primitive or Internal 才是 non-visible function. 11/17 16:56
谢谢补充
※ 编辑: Wush978 来自: 114.25.167.95 (11/17 20:17)
11F：推 diplazium:好详尽又深入的介绍啊!大推~ 11/17 23:32
12F：推 flywin:推~ 11/29 20:54
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: celestialgod (111.248.8.209), 08/28/2015 18:15:42