write_delim_git() stages files when local path is the root of the repo

ropensci · Dec 27, 2017 · e0f5a63 · e0f5a63
1 parent 36e3d63
commit e0f5a63
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/write_delim_git.r b/R/write_delim_git.r
@@ -64,8 +64,12 @@ setMethod(
     )
 
     # stage the file
-    filename.local <- paste(connection@LocalPath, file, sep = "/")
-    add(connection@Repository, filename.local)
+    if (connection@LocalPath == ".") {
+      filename.local <- file
+    } else {
+      filename.local <- paste(connection@LocalPath, file, sep = "/")
+    }
+    add(repo = connection@Repository, path = filename.local)
 
     return(hashfile(filename.full))
   }