可用CRAN小插曲

Question

有available.packages()函數列出CRAN上可用的所有軟件包。是否有類似的功能來查找所有可用的小插曲？如果沒有，我將如何獲得所有短片及其相關軟件包的列表？

作爲要記住data.table包的一個角落案例，有3個與其相關聯的小插件。

編輯：每安德烈的迴應我意識到我不清楚。我知道關於查找所有可用的本地插圖的小插曲功能，我正在獲取CRAN上所有軟件包的所有小插件。

Answer 1

我似乎記得在迴應一些問題，SO看着這個（現在不能找到它），並決定由於信息不包括在available.packages()的輸出中，也沒有在應用readRDS到@CRAN/web/packages/packages.rds（來自Jeroen Ooms的招數）的結果中，我想不出一種非刮擦的方式去做它...

H ERE的我的刮刀，施加到第一100包（導致44個插圖）

pkgs <- unname(available.packages()[, 1])[1:100] 
vindex_urls <- paste0(getOption("repos"),"/web/packages/", pkgs, 
    "/vignettes/index.rds", sep = "") 
getf <- function(x) { 
     ## I think there should be a way to do this directly 
     ## with readRDS(url(...)) but I can't get it to work 
    suppressWarnings(
       download.file(x,"tmp.rds",quiet=TRUE)) 
    readRDS("tmp.rds") 
} 
library(plyr) 
vv <- ldply(vindex_urls, 
      .progress="text", 
      function(x) { 
       if (inherits(z <- try(getf(x),silent=TRUE), 
        "try-error")) NULL else z 
      }) 
tmpf <- function(x,n) { if (is.null(x)) NULL else 
          data.frame(pkg=n,x) } 
vframe <- do.call(rbind,mapply(tmpf,vv,pkgs)) 
rownames(vframe) <- NULL 
head(vframe[,c("pkg","Title")]) 

有很多方法可以清理它/使其更小巧，但它似乎工作確定。你一次刮/偶爾更新戰略似乎是合理的。或者，如果你想每天（或者每週或者其他任何看起來合理的）進行刮擦，並將結果保存/發佈到可公開訪問的地方，那麼在該包中包含一個具有該硬編碼URL的函數......甚至可以創建一個格式良好的HTML表格，鏈接，全世界都可以使用（然後將偉哥廣告添加到頁面，並且$$ PROFIT $$ ...）

編輯：將下載和readRDS包裝在函數中，所以我可以將所有東西包裝在try

Answer 2

函數vignette()和browseVignettes()列出了機器上安裝的所有軟件包的縮略圖。

vignette(package="data.table") 

Vignettes in package ‘data.table’: 

datatable-faq       Frequently asked questions (source, pdf) 
datatable-intro      Quick introduction (source, pdf) 
datatable-timings      Timings of common tasks (source, pdf) 

browseVignettes()是特別有用的，因爲它創建了一個網頁的超鏈接：

browseVignettes(package="data.table") 

Vignettes found by browseVignettes(package = "data.table") 

Vignettes in package data.table 

Frequently asked questions - PDF R LaTeX/noweb 
Quick introduction - PDF R LaTeX/noweb 
Timings of common tasks - PDF R LaTeX/noweb