Add more dockerignore functions & components.

Author: coatless

NAMESPACE

@@ -23,9 +23,25 @@ export(dfi_stopsignal)
 export(dfi_user)
 export(dfi_volume)
 export(dfi_workdir)
+export(di_add)
+export(di_remove)
+export(di_replace)
+export(dk_template_ignore_common)
+export(dk_template_ignore_data)
+export(dk_template_ignore_editor)
+export(dk_template_ignore_git)
+export(dk_template_ignore_node)
+export(dk_template_ignore_os)
+export(dk_template_ignore_packrat)
+export(dk_template_ignore_python)
+export(dk_template_ignore_r)
+export(dk_template_ignore_raw_data)
+export(dk_template_ignore_renv)
 export(dockerfile)
 export(dockerignore)
 export(get_package_manager)
 export(has_instruction)
 export(is_dockerfile)
 export(is_dockerignore)
+export(read_dockerignore)
+export(write_dockerignore)

R/dockerignore-instructions.R

@@ -0,0 +1,74 @@
+#' Add patterns to a dockerignore object
+#'
+#' @param dockerignore A dockerignore object
+#' @param pattern Character vector of patterns to add
+#' @return Updated dockerignore object
+#' @export
+di_add <- function(dockerignore, pattern) {
+  check_dockerignore(dockerignore)
+  
+  # Handle vector input
+  for (p in pattern) {
+    # Add pattern if not already present
+    if (!p %in% dockerignore$patterns) {
+      dockerignore$patterns <- c(dockerignore$patterns, p)
+    }
+  }
+  
+  dockerignore
+}
+
+#' Remove patterns from a dockerignore object
+#'
+#' @param dockerignore A dockerignore object
+#' @param pattern Character vector of patterns to remove
+#' @return Updated dockerignore object
+#' @export
+di_remove <- function(dockerignore, pattern) {
+  check_dockerignore(dockerignore)
+  
+  # Remove patterns if present
+  dockerignore$patterns <- dockerignore$patterns[!dockerignore$patterns %in% pattern]
+  
+  dockerignore
+}
+
+#' Replace patterns in a dockerignore object
+#'
+#' @param dockerignore A dockerignore object
+#' @param old_pattern Pattern(s) to replace
+#' @param new_pattern New pattern(s)
+#' @return Updated dockerignore object
+#' @export
+di_replace <- function(dockerignore, old_pattern, new_pattern) {
+  check_dockerignore(dockerignore)
+  
+  # Handle different input cases
+  if (length(old_pattern) == 1 && length(new_pattern) == 1) {
+    # Simple case: replace single pattern with single pattern
+    idx <- which(dockerignore$patterns == old_pattern)
+    if (length(idx) > 0) {
+      dockerignore$patterns[idx] <- new_pattern
+    }
+  } else if (length(old_pattern) > 1 && length(new_pattern) == 1) {
+    # Replace multiple patterns with a single pattern
+    for (op in old_pattern) {
+      idx <- which(dockerignore$patterns == op)
+      if (length(idx) > 0) {
+        dockerignore$patterns[idx] <- new_pattern
+      }
+    }
+  } else if (length(old_pattern) == length(new_pattern)) {
+    # Replace each old pattern with corresponding new pattern
+    for (i in seq_along(old_pattern)) {
+      idx <- which(dockerignore$patterns == old_pattern[i])
+      if (length(idx) > 0) {
+        dockerignore$patterns[idx] <- new_pattern[i]
+      }
+    }
+  } else {
+    cli::cli_abort("old_pattern and new_pattern must have the same length or new_pattern must be length 1")
+  }
+  
+  dockerignore
+}

R/dockerignore-io.R

@@ -0,0 +1,38 @@
+#' Read a .dockerignore file
+#'
+#' @param file Path to .dockerignore file
+#' @return A dockerignore object
+#' @export
+read_dockerignore <- function(file = ".dockerignore") {
+  if (!file.exists(file)) {
+    cli::cli_abort("File not found: {file}")
+  }
+  
+  # Read lines from file
+  lines <- readLines(file)
+  
+  # Filter out empty lines and comments
+  lines <- lines[!grepl("^\\s*$", lines) & !grepl("^\\s*#", lines)]
+  
+  # Create a new dockerignore object
+  di <- dockerignore()
+  di$patterns <- lines
+  
+  di
+}
+
+#' Write a dockerignore object to a file
+#'
+#' @param dockerignore A dockerignore object
+#' @param file Output file path (default: ".dockerignore")
+#' @return Invisible dockerignore object
+#' @export
+write_dockerignore <- function(dockerignore, file = ".dockerignore") {
+  check_dockerignore(dockerignore)
+  
+  # Write to file
+  writeLines(dockerignore$patterns, file)
+  
+  cli::cli_alert_success(".dockerignore written to {file}")
+  invisible(dockerignore)
+}