Mercurial > repos > nturaga > minfi_pipeline

diff help/help-scripts/.Rhistory @ 0:84361ce36a11 draft

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 11:10:25 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/help/help-scripts/.Rhistory	Tue Apr 19 11:10:25 2016 -0400
@@ -0,0 +1,26 @@
+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"))