※ 引述《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)
謝謝補充
※ 編輯: Wush978 來自: 114.25.167.95 (11/17 20:17)
※ celestialgod:轉錄至看板 R_Language 08/28 18:15