#215 names for returned artifacts

pbiecek · Feb 8, 2016 · f60cb84 · f60cb84
1 parent f39ed19
commit f60cb84
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/asearch.R b/R/asearch.R
@@ -113,12 +113,9 @@ asearch <- function( patterns, repo = NULL){
     # use default repo
      oblist <- multiSearchInLocalRepo(patterns = patterns,
                                       intersect = TRUE)
-#     oblist <- multiSearchInRepo(patterns = patterns)
-#     if (length(oblist) > 0) {
-#       res <- lapply(oblist, aread)
-#     }
     if (length(oblist) > 0) {
       res <- lapply(oblist, loadFromLocalRepo, value = TRUE)
+      names(res) <- oblist
     }
   } else {
     # at least 3 elements
@@ -130,6 +127,7 @@ asearch <- function( patterns, repo = NULL){
                                 patterns = patterns)
     if (length(oblist)>0) {
       res <- lapply(paste0(repo, "/", oblist), aread)
+      names(res) <- oblist
     } 
   } 
   res