From f60cb849cee89fb857fe8dd11aed48476e143146 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw=20Biecek?= <przemyslaw.biecek@gmail.com>
Date: Mon, 8 Feb 2016 15:28:40 +0100
Subject: [PATCH] #215 names for returned artifacts

---
 R/asearch.R | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/R/asearch.R b/R/asearch.R
index b8fa4af..8d5a05b 100644
--- 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