use fastrls if installed instead of fs::dir_ls when building cache

DESCRIPTION

@@ -1,15 +1,10 @@
 Package: raadfiles
 Title: File Database Management for 'raadtools'
-Version: 0.1.4.9007
-Authors@R: c(
-   person("Michael D.","Sumner", role = c("aut", "cre"), email = "[email protected]"), 
-   person("Ben", "Raymond", role = "ctb"), 
-      person(given = "Kimberlee",
-           family = "Baldry",
-           role = c("ctb"),
-           comment = c(ORCID = "0000-0003-3286-8624"))
-   )
-Description: Tools for managing collections of files for the 'raad' family. 
+Version: 0.1.4.9008
+Authors@R: c(person("Michael D.","Sumner", role = c("aut", "cre"), email = "[email protected]"),
+             person("Ben", "Raymond", role = "ctb"),
+             person("Kimberlee", "Baldry", role = c("ctb"), comment = c(ORCID = "0000-0003-3286-8624")))
+Description: Tools for managing collections of files for the 'raad' family.
 Depends:
     R (>= 3.3.0)
 Imports:
@@ -24,5 +19,7 @@ Imports:
 License: GPL-3
 Encoding: UTF-8
 RoxygenNote: 7.2.3
-Suggests: testthat
-Remotes: r-lib/fs
+Suggests:
+    fastrls,
+    testthat
+Remotes: r-lib/fs, AustralianAntarcticDivision/fastrls

R/000-raadfiles-admin.R

@@ -332,16 +332,19 @@ run_build_raad_cache <- function() {
     adminpath <- dirname(raad_filedb_path(roots[i]))
     dir.create(adminpath, showWarnings = FALSE)
     dbpath <- raad_filedb_path(roots[i])
-    filenames <- as.character(fs::dir_ls(roots[i], all = TRUE, recurse = TRUE,
-                                         ## no directory, FIFO, socket, character_device or block_device
-                                         type = c("file", "symlink")))
-    if (is.null(filenames)) {
+    if (requireNamespace("fastrls", quietly = TRUE)) {
+        filenames <- as.character(fastrls::fastrls(roots[i], include_dirs = FALSE, n_threads = 4))
+    } else {
+        filenames <- as.character(fs::dir_ls(roots[i], all = TRUE, recurse = TRUE,
+                                             ## no directory, FIFO, socket, character_device or block_device
+                                             type = c("file", "symlink")))
+    }
+    if (is.null(filenames) || length(filenames) < 1) {
       files <- tibble::tibble(root = character(0), file = character(0))
 
     } else {
       ## fix up root-less file
       filenames <- remove_leading_slash(gsub(roots[i], "", filenames))
-
       files <- tibble::tibble(root = roots[i], file = filenames)
 
     }