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"))