Tìm kiếm một gói bởi một tác giả cụ thể

Question

Đôi khi tôi quen với thiết kế của một gói R cụ thể và muốn tìm kiếm CRAN cho tất cả các gói của tác giả đó (hãy sử dụng Hadley Wickham chẳng hạn). Làm thế nào tôi có thể làm một tìm kiếm như vậy (tôi muốn sử dụng R nhưng điều này không phải là chế độ tìm kiếm).

Answer 1

Crantastic can search by author. Bạn có thể làm nhiều hơn một chút với crantastic nhưng chức năng bạn đang tìm kiếm đã được cung cấp ở đó.

Answer 2

Phỏng theo available.packages by publication date:

## restrict to first 100 packages (by alphabetical order) 
pkgs <- unname(available.packages()[, 1])[1:100] 
desc_urls <- paste(options("repos")$repos,"/web/packages/", pkgs, 
    "/DESCRIPTION", sep = "") 
desc <- lapply(desc_urls, function(x) read.dcf(url(x))) 
authors <- sapply(desc, function(x) x[, "Author"]) 

Kể từ khi tôi là một sự tự khen (và Hadley Wickham không có gói trong 100 đầu tiên):

pkgs[grep("Bolker",authors)] 
# [1] "ape" 

Vấn đề chính với giải pháp này là làm nó cho thực tế (thay vì chỉ cho 100 gói đầu tiên) có nghĩa là nhấn CRAN 3000+ lần cho thông tin gói ...

chỉnh sửa: một giải pháp tốt hơn, dựa trên giải pháp Jeroen oom trong cùng một vị trí:

recent.packages.rds <- function(){ 
    mytemp <- tempfile() 
    download.file(paste0(options("repos")$repos,"/web/packages/packages.rds"), 
        mytemp) 
    mydata <- as.data.frame(readRDS(mytemp), row.names=NA) 
    mydata$Published <- as.Date(mydata[["Published"]]) 
    mydata 
} 

mydata <- recent.packages.rds() 
unname(as.character(mydata$Package[grep("Wickham",mydata$Author)])) 
# [1] "classifly" "clusterfly" "devtools"  "evaluate"  "fda"   
# [6] "geozoo"  "ggmap"  "ggplot2"  "helpr"  "hints"  
# [11] "HistData"  "hof"   "itertools" "lubridate" "meifly"  
# [16] "memoise"  "munsell"  "mutatr"  "normwhn.test" "plotrix"  
# [21] "plumbr"  "plyr"   "productplots" "profr"  "Rd2roxygen" 
# [26] "reshape"  "reshape2"  "rggobi"  "roxygen"  "roxygen2"  
# [31] "scales"  "sinartra"  "stringr"  "testthat"  "tourr"  
# [36] "tourrGui" 

Answer 3

Không chính xác của tác giả nhưng có lẽ truy cập bằng cách duy trì cũng sẽ có ích?

http://cran.r-project.org/web/checks/check_summary_by_maintainer.html#summary_by_maintainer

EDIT bởi Tyler Rinker

gợi ý DWin có thể được đưa đến thành hiện thực với những dòng mã:

search.lib <- function(term, column = 1){ 
    require(XML) 
    URL <- "http://cran.r-project.org/web/checks/check_summary_by_maintainer.html#summary_by_maintainer" 
    dat <-readHTMLTable(doc=URL, which=1, header=T, as.is=FALSE) 
    names(dat) <- trimws(names(dat)) 
    dat$Maintainer[dat$Maintainer == ""] <- NA 
    dat$Maintainer = zoo::na.locf(dat$Maintainer) 
    if (is.numeric(column)) { 
     dat[agrep(term, dat[, column]), 1:3] 
    } else { 
     dat[agrep(term, dat[, agrep(column, colnames(dat))]), 1:3] 
    } 
} 

search.lib("hadley") 
search.lib("bolker") 
search.lib("brewer", 2)