fix paths in downloadData and checksums (#205)

with 92e9b76
PredictiveEcology · Oct 21, 2015 · f88bb69 · f88bb69
1 parent 92e9b76
commit f88bb69
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/module-repository.R b/R/module-repository.R
@@ -167,7 +167,7 @@ setMethod(
     if (length(urls[-ids])) {
       setwd(path); on.exit(setwd(cwd))
       files <- lapply(urls[-ids], function(x) {
-        download(x, destfile = basename(x), quiet = TRUE)
+        download(x, destfile = file.path(path, module, "data", basename(x)), quiet = TRUE)
         basename(x)
       })
     } else {
@@ -220,7 +220,7 @@ setMethod(
   "checksums",
   signature = c(module = "character", path = "character", write = "logical"),
   definition = function(module, path, write) {
-    path <- checkPath(path, create = FALSE) %>% file.path(., "data")
+    path <- checkPath(path, create = FALSE) %>% file.path(., module, "data")
     stopifnot(file.exists(file.path(path, "CHECKSUMS.txt")))
 
     files <- list.files(path, full.names = TRUE) %>%