R/test_helper.R

In dhope/ARUtools: Tools for management of Acoustic Recording Unit (ARU) data

#' Helper function for GPS tests
#'
#' Creates an example GPS file for testing
#'
#' @noRd
test_gps <- function(lon = "Longitude (decimal degrees)",
                     lat = "Latitude (decimal degrees)",
                     time = "HH:MM:SS",
                     date = "DD/MM/YY", skips = 2, path = "gps.csv") {

  p <- testthat::test_path(path)

  meta <- rep("GPS log file", skips - 1)
  for(i in p) {
    readr::write_lines(
      c(meta,
        paste(lat, lon, time, date, sep = ", "),
        "45,  -76,  07:30:00, 25/05/2021",
        "55,  -84.3, 16:08:00, 03/06/2021"),
      i)
  }

  p
}

#' Helper function for meta data tests
#'
#' Creates a directory structure with example recording files
#'
#' @noRd
temp_files <- function() {
  purrr::walk(fs::path_temp(ARUtools::example_files),
              ~{fs::dir_create(dirname(.x)); writeLines("test", .x)})

  fs::path_temp(ARUtools::example_files)
}