Mercurial > repos > nturaga > minfi_pipeline

view help/help-scripts/.Rhistory @ 1:a78f84fc4873 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit fb90aafc93e5e63acfcdac4c27cfd865cdf06c5a-dirty
author nturaga
date Tue, 19 Apr 2016 12:20:29 -0400
parents 84361ce36a11
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"))