Fw: [程式] 請問如何看R中 Package 的程式碼

[celestialgod (天)]

※ [本文轉錄自 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)
推 blackalert:推～ 我之前遇到*都不知道要怎看 XD
推 obarisk:推完整的介紹
推 lin15:推!!
推 henry7448:太棒了  謝謝
推 bmka:推
推 laba1014:讚
→ clickhere:方法4: 只適用於S3 function.
→ clickhere:S4 method可用 showMethods(), getMethod().
→ clickhere:* 是因為 NAMESPACE 並沒有 export 該 function.
→ clickhere:Primitive or Internal 才是 non-visible function.
謝謝補充
※ 編輯: Wush978         來自: 114.25.167.95        (11/17 20:17)
推 diplazium:好詳盡又深入的介紹啊!大推~
推 flywin:推~
※ 發信站: 批踢踢實業坊(ptt.cc)
※ 轉錄者: celestialgod (111.248.8.209), 08/28/2015 18:15:42