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

看板Statistics作者 (拒看低質媒體)時間11年前 (2012/11/16 17:21), 編輯推噓8(804)
留言12則, 9人參與, 最新討論串2/2 (看更多)
※ 引述《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)

11/16 17:48, , 1F
推~ 我之前遇到*都不知道要怎看 XD
11/16 17:48, 1F

11/16 19:40, , 2F
推完整的介紹
11/16 19:40, 2F

11/16 19:50, , 3F
推!!
11/16 19:50, 3F

11/16 20:41, , 4F
太棒了 謝謝
11/16 20:41, 4F

11/16 21:36, , 5F
11/16 21:36, 5F

11/17 11:07, , 6F
11/17 11:07, 6F

11/17 16:51, , 7F
方法4: 只適用於S3 function.
11/17 16:51, 7F

11/17 16:52, , 8F
S4 method可用 showMethods(), getMethod().
11/17 16:52, 8F

11/17 16:55, , 9F
* 是因為 NAMESPACE 並沒有 export 該 function.
11/17 16:55, 9F

11/17 16:56, , 10F
Primitive or Internal 才是 non-visible function.
11/17 16:56, 10F
謝謝補充 ※ 編輯: Wush978 來自: 114.25.167.95 (11/17 20:17)

11/17 23:32, , 11F
好詳盡又深入的介紹啊!大推~
11/17 23:32, 11F

11/29 20:54, , 12F
推~
11/29 20:54, 12F
celestialgod:轉錄至看板 R_Language 08/28 18:15
文章代碼(AID): #1GfWMcwv (Statistics)
文章代碼(AID): #1GfWMcwv (Statistics)