detect #github #packages in #R #library

github_packages.R

library(tidyverse)
allmypackages <- as.data.frame(installed.packages())
allmypackages <- allmypackages %>%
    filter(Priority != "base" | is.na(Priority)) %>%
    select(-c(Enhances:MD5sum, LinkingTo:Suggests)) %>%
    droplevels()

package_source <- function(pkg){
    x <- as.character(packageDescription(pkg)$Repository)
    if (length(x)==0) {
        y <- as.character(packageDescription(pkg)$GithubRepo)
        z <- as.character(packageDescription(pkg)$GithubUsername)
        if (length(y)==0) {
            return("Other")
        } else {
            return(str_c("GitHub repo = ", z, "/", y))
        }
    } else {
        return(x)
    }
}
df <- sapply(allmypackages$Package, package_source)
df %>% .[matches("[GitHub]", vars=.)]