revert edits, original code worked perfect

ChrisMuir · May 11, 2018 · 7ad518f · 7ad518f
1 parent 2fbfa8b
commit 7ad518f
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/read_docs.r b/R/read_docs.r
@@ -29,11 +29,9 @@ read_docx <- function(path) {
     httr::stop_for_status(res)
   } else {
     path <- path.expand(path)
+    if (!file.exists(path)) stop(sprintf("Cannot find '%s'", path), call.=FALSE)
     # copy docx to zip (not entirely necessary)
-    file_copy <- file.copy(path, tmpf)
-    if (!file_copy) {
-      stop(sprintf("Cannot find '%s'", path), call.=FALSE)
-    }
+    file.copy(path, tmpf)
   }
   # unzip it
   unzip(tmpf, exdir=sprintf("%s/docdata", tmpd))