Mercurial > repos > nturaga > minfi_analyze_tcga
view help/help-scripts/.Rhistory @ 0:8b26eeb2da29 draft
planemo upload commit fb90aafc93e5e63acfcdac4c27cfd865cdf06c5a-dirty
author | nturaga |
---|---|
date | Tue, 19 Apr 2016 11:11:16 -0400 |
parents | |
children |
line wrap: on
line source
packageExpand = function(packagelist,fl) { res = NULL for (i in c(1:length(packagelist))) { s = packagelist[i] ls = nchar(s) spos = which(substr(fl,1,ls) == s,arr.ind=T) lspos = length(spos) if (lspos > 0) { fullname = fl[spos] if (grepl('*.gz',fullname)) { row = paste(ps,fullname,pe,sep='') res = append(res,row) } } } return(res) } getPackages = function(packs) { packages = unlist(tools::package_dependencies(packs, available.packages(), which=c("Depends", "Imports"), recursive=TRUE)) packages = union(packs, packages) packages } packageExpand(c("minfi"))