R/addReverseDepends.R

In barryrowlingson/cransurv: Survival analysis of CRAN packages

AP <- available.packages()

getRevDep <- function(pkg) {
  revdep <- tools::dependsOnPkgs(pkg, recursive=FALSE, installed=AP)
}

rcpp <- getRevDep("Rcpp")
pkg <- data.table(pkg=rcpp, rcpp=TRUE)
setkey(pkg, pkg)
sd3 <- pkg[sd2][is.na(rcpp)==TRUE, rcpp:=FALSE][]

dplyr <- getRevDep("dplyr")
pkg <- data.table(pkg=dplyr, dplyr=TRUE)
setkey(pkg, pkg)
sd4 <- pkg[sd3][is.na(dplyr)==TRUE, dplyr:=FALSE][]

rlang <- getRevDep("rlang")
pkg <- data.table(pkg=rlang, rlang=TRUE)
setkey(pkg, pkg)
sd5 <- pkg[sd4][is.na(rlang)==TRUE, rlang:=FALSE][]

#### Rcpp
# data 'manually' curated from the list of active Rcpp packages, commented out entries -> dead ones
rcpp <- fread("cat inst/data/rcpp.alive.txt inst/data/rcpp.dead.txt", header=FALSE)
names(rcpp) <- "package"
setkey(rcpp, package)
rcpp[, rcpp:=TRUE]

sd3 <- rcpp[sd2]
sd3[is.na(rcpp)==TRUE, rcpp:=FALSE]


###
summary(m <- coxph(Surv(life,event) ~ meansize + Depends + Imports + Suggests, data=sd3))
summary(m2 <- coxph(Surv(life,event) ~ meansize + nc*Depends + Imports + Suggests, data=sd3))
summary(m3 <- coxph(Surv(life,event) ~ meansize + nc*Depends + Imports + Suggests, data=sd3))