R/notes2.R

In barryrowlingson/cransurv: Survival analysis of CRAN packages

script=function(){
    live = LIVE()
    meta = getmeta()
    archived = unique(meta$archive$package)
    dead = setdiff(ever, live)
    
    studypackages = c(live, dead)

    # these packages are missing from pkgsearch's database
    badpacks = c("VR","dseplus","empiricalBayes","forecasting","mrf2d")
    studypackages = studypackages[!studypackages %in% badpacks]
    
    studydata(studypackages)
}
    
studydata = function(studypackages, meta, now){
    pb = progress::progress_bar$new(total=length(studypackages))
    sds = do.call(rbind,
                  lapply(
                      studypackages,
                      function(spack){
                          pb$tick()
                          sd = as_sd(spack, meta, now)
                          sd$meansize = meansize(spack, meta)
                          deps = meandeps(spack, meta, now)
                          cbind(sd, deps)
                      })
                  )
    ## fixup class
    sds$death = as.POSIXct(sds$death, origin="1970/01/01")
    sds
}