Update labhist.R

mokazuma · Oct 4, 2015 · 62ddc43 · 62ddc43
1 parent b9fb57c
commit 62ddc43
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/labhist.R b/R/labhist.R
@@ -98,7 +98,7 @@ labhist <- function(input, mode="file", output=input, hist=TRUE,
         nodtext <- rvest::html_attrs(imgnod)
         for(i in 1:length(nodtext)) {
           downloader::download(as.character(nodtext[[i]][2]),
-                               sprintf("%s/%s/%s_%02d%s", current, mode, output, i, filetype),
+                               sprintf("%s/%s/%s_%02d%s", current, "scraping", output, i, filetype),
                                mode="wb")
           Sys.sleep(1)
         }