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)
 
  }