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