R/get_package_deps.R

In statisticiansix/dockerise:

get_package_deps <- function(neededPackages,remove=FALSE,...){
  out <- do.call(rbind,lapply(neededPackages,function(x){
    deps <- as.data.frame(sessioninfo::package_info(x,...))[c('package','ondiskversion','source','path')]
    if(remove){
      return(deps[deps$package!=x,])
    }else{
      return(deps)
    }
  }))
  out$ID <- paste(out$package,out$path,sep='_')
  cleaned <- out[!duplicated(out$ID),1:(ncol(out)-1)]
  return(cleaned)
}