Merge pull request #37 from psolymos/master

Author: ColinFay

R/dockerignore.R

@@ -14,18 +14,18 @@
 #'   docker_ignore_add()
 #' }
 docker_ignore_add <- function(path) {
-  path <- fs::path(
+  path_di <- fs::path(
     path,
     ".dockerignore"
   )
 
   if (!fs::file_exists(
-    path
+    path_di
   )) {
-    fs::file_create(path)
+    fs::file_create(path_di)
 
     write_ignore <- function(content) {
-      write(content, path, append = TRUE)
+      write(content, path_di, append = TRUE)
     }
 
     for (i in c(
@@ -39,6 +39,24 @@ docker_ignore_add <- function(path) {
     )) {
       write_ignore(i)
     }
+
+    path_ri <- fs::path(
+      path,
+      ".Rbuildignore"
+    )
+    if (fs::file_exists(
+      path_ri
+    )) {
+      write(
+        "^\\.dockerignore$", 
+        path_ri, 
+        append = TRUE)
+      cat_bullet(
+        ".dockerignore added to the .Rbuildignore file.",
+        bullet = "info",
+        bullet_col = "green"
+      )
+    }
   } else {
     cat_bullet(
       ".dockerignore already present, skipping its creation.",
@@ -47,5 +65,5 @@ docker_ignore_add <- function(path) {
     )
   }
 
-  return(invisible(path))
+  return(invisible(path_di))
 }