Wyszukaj paczki danego autora

Question

Czasami przyzwyczaiłem się do konkretnego projektu paczki R i chcę przeszukać CRAN dla wszystkich paczek tego autora (na przykład skorzystajmy z Hadley Wickham). Jak mogę zrobić takie wyszukiwanie (chciałbym użyć R, ale to nie musi być tryb wyszukiwania).

Answer 1

. Możesz zrobić trochę więcej dzięki crantastic, ale funkcja, której szukasz, jest już dostępna.

Answer 2

Adaptacja 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"]) 

Ponieważ jestem narcyzem (i Hadley Wickham nie ma pakietów w pierwszej 100):

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

Głównym problemem z tego rozwiązania jest to, że robi to na prawdę (a nie tylko na pierwsze 100 pakietów) oznacza uderzanie CRAN 3000 razy dla informacji o pakiecie ...

edit: lepsze rozwiązanie, w oparciu o rozwiązania Jeroen OOM w tym samym miejscu:

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

Niezupełnie przez autora, ale być może dostęp przez opiekuna będzie również przydatny?

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

EDIT Tyler Rinker

sugestia Dwin mogą być doprowadzone do skutku z tych linii kodu:

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)