jumpin2.R

In ropensci/dashboard: A package status dashboard

library(dashboard)

package <- c("alm","AntWeb","bmc","bold","clifro","dependencies",
            "ecoengine","ecoretriever","elastic","elife","floras",
            "fulltext","geonames","gistr", "jekyll-knitr","mocker",
            "neotoma","plotly","rAltmetric","rAvis","rbhl","rbison",
            "rcrossref","rdatacite","rdryad","rebird","rentrez","reol",
            "reproducibility-guide","rfigshare","rfishbase","rfisheries",
            "rflybase","rgauges","rgbif","rglobi","rhindawi",
            "rinat","RMendeley","rmetadata","RNeXML","rnoaa","rnpn",
            "traits","rplos","rsnps","rspringer","rvertnet","rWBclimate",
            "solr","spocc","taxize","togeojson","treeBASE","ucipp","testdat",
            "git2r","rdat","EML",'aRxiv','datapackage','dvn','gender','ggit',
            'gigadb','historydata','ICES','mdextract','ots','paleobioDB',
            'pangaear','prism','rDat','rebi','rnbn','rOBIS','rorcid',
            'RSelenium','sheetseeR','USAboundaries','zenodo')

# Add the GitHub organization/user name before each page
pkgs <- add_github(package,"ropensci")

message("Now querying the GitHub API \n")
# Run the stats on all the packages
results <- lapply(pkgs,github_stats)  %>% Filter(Negate(is.null),.)  
# Finally generate a static html page
generate_html(results)