In jeksterslabds/jeksterslabRutils: Package Utility Functions

knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

library(testthat)
library(jeksterslabRutils)
context("Test util_search.")

Parameters

tmp <- util_make_subdir()

pattern1 <- "^[[:print:]]*\\.[[:alnum:]]{1,4}$"
n <- 20
file_basename <- file_extension <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  file_extension[i] <- util_rand_str(
    characters = sample(1:4),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  file_basename,
  ".",
  file_extension
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern1 <- util_search_pattern(
  dir = tmp,
  pattern = pattern1
)
expect_equal(
  results_util_search_pattern_pattern1,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = TRUE
)

pattern2 <- "^.*\\.r$|^.*\\.rmd$"
n <- 30
file_basename <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  file_basename,
  ".",
  sample(
    c(
      "r",
      "R",
      "RMD",
      "Rmd",
      "rmd",
      "rMd"
    ),
    size = n,
    replace = TRUE
  )
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- paste0(
  mismatch,
  ".",
  sample(
    c(
      "md",
      "rd",
      "Rd",
      "js",
      "Rtex"
    ),
    size = n,
    replace = TRUE
  )
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern2 <- util_search_pattern(
  dir = tmp,
  pattern = pattern2
)
results_util_search_r_pattern2 <- util_search_r(
  dir = tmp
)
expect_equal(
  results_util_search_pattern_pattern2,
  results_util_search_r_pattern2,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = TRUE
)

ext <- "csv"
pattern3 <- paste0(
  "^.*\\.",
  ext,
  "$"
)
n <- 30
file_basename <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  file_basename,
  ".",
  sample(
    c(
      "csv",
      "CSV",
      "Csv",
      "cSv",
      "csV",
      "CSv"
    ),
    size = n,
    replace = TRUE
  )
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- paste0(
  mismatch,
  ".",
  sample(
    c(
      "md",
      "rd",
      "Rd",
      "js",
      "Rtex"
    ),
    size = n,
    replace = TRUE
  )
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern3 <- util_search_pattern(
  dir = tmp,
  pattern = pattern3
)
results_util_search_ext_pattern3 <- util_search_ext(
  dir = tmp,
  ext = ext
)
expect_equal(
  results_util_search_pattern_pattern3,
  results_util_search_ext_pattern3,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = TRUE
)

pattern4 <- "^file.*\\.csv$"
n <- 20
file_basename <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  "file",
  file_basename,
  ".",
  "csv"
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- paste0(
  mismatch,
  ".",
  sample(
    c(
      "md",
      "rd",
      "Rd",
      "js",
      "Rtex"
    ),
    size = n,
    replace = TRUE
  )
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern4 <- util_search_pattern(
  dir = tmp,
  pattern = pattern4
)
expect_equal(
  results_util_search_pattern_pattern4,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = TRUE
)

pattern6 <- "^.*\\.r$"
n <- 30
file_basename <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  file_basename,
  ".",
  sample(
    c(
      "r",
      "R"
    ),
    size = n,
    replace = TRUE
  )
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- paste0(
  mismatch,
  ".",
  sample(
    c(
      "md",
      "rd",
      "Rd",
      "js",
      "Rtex",
      "Rmd",
      "rmd"
    ),
    size = n,
    replace = TRUE
  )
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern6 <- util_search_pattern(
  dir = tmp,
  pattern = pattern6
)
results_util_search_r_pattern6 <- util_search_r(
  dir = tmp,
  rscript = TRUE,
  rmd = FALSE
)
expect_equal(
  results_util_search_pattern_pattern6,
  results_util_search_r_pattern6,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = TRUE
)

pattern7 <- "^.*\\.rmd$"
n <- 30
file_basename <- mismatch <- rep(
  x = NA,
  times = n
)
for (i in seq_along(file_basename)) {
  file_basename[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
  mismatch[i] <- util_rand_str(
    characters = sample(8:16),
    digits = TRUE,
    ext = NULL
  )
}
file_name <- paste0(
  file_basename,
  ".",
  sample(
    c(
      "rmd",
      "Rmd",
      "RMD",
      "rMd",
      "rmD"
    ),
    size = n,
    replace = TRUE
  )
)
file_name <- file.path(
  tmp,
  file_name
)
mismatch <- paste0(
  mismatch,
  ".",
  sample(
    c(
      "md",
      "rd",
      "Rd",
      "js",
      "Rtex",
      "R",
      "r"
    ),
    size = n,
    replace = TRUE
  )
)
mismatch <- file.path(
  tmp,
  mismatch
)
file.create(
  c(
    file_name,
    mismatch
  )
)
results_util_search_pattern_pattern7 <- util_search_pattern(
  dir = tmp,
  pattern = pattern7
)
results_util_search_r_pattern7 <- util_search_r(
  dir = tmp,
  rscript = FALSE,
  rmd = TRUE
)
expect_equal(
  results_util_search_pattern_pattern7,
  results_util_search_r_pattern7,
  sort(file_name)
)
util_clean_dir(
  dir = tmp,
  create_dir = FALSE
)