作者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