Use globs

- Use globs for ignored files (fixes some edge cases)

R/engine.R

@@ -9,7 +9,8 @@ new_engine <- function(path, dirs, port, host, ignore) {
  dirs = dirs,
  host = host %||% "127.0.0.1",
  ignore = ignore %||% c("*.sqlite", "*.git*") |>
- paste0(collapse = "|")
+ paste0(collapse = "|") |>
+ utils::glob2rx()
  ),
  publisher = nanonext::socket(
  protocol = "pub",

R/run.R

@@ -13,7 +13,7 @@
 #' @param dirs extra directories to watch
 #' @param port port to launch API on, defaults to `httpuv::randomPort()`
 #' @param host host to launch API on, defaults to "127.0.0.1"
-#' @param ignore vector of files or file extensions to ignore (regex patterns)
+#' @param ignore vector of files or file extensions to ignore (globs)
 #'
 #' @examples
 #' \dontrun{

R/watcher.R

@@ -17,7 +17,6 @@ get_changed_files <- function(current_state, next_state) {
  new <- names(next_state[names(next_state) %nin% names(current_state)])
  removed <- names(current_state[names(current_state) %nin% names(next_state)])
  modified <- names(next_state[next_state %nin% current_state])
-
  unique(c(new, removed, modified))
 }