tests/testthat/test-make_map.R

In Huh/collar: Utilities for Accessing and Manipulating GPS Data

test_that("check make_map", {

  data_dir <- system.file("extdata", package = "collar")
  tmp <- collar::fetch_csv(paste0(data_dir, "/vectronics_2.csv"))
  dat <-
    tmp %>%
    dplyr::filter(!is.na(longitude)) %>%
    morph_gps(
      x = .,
      id_col = idcollar,
      dt_col = acquisitiontime,
      dt_format = "%Y-%m-%dT%H:%M:%S",
      lon_col =  longitude,
      lat_col = latitude
    )

  expect_error(
    make_map()
  )

})


test_that("check make_map assertions", {

  data_dir <- system.file("extdata", package = "collar")
  tmp <- collar::fetch_csv(paste0(data_dir, "/vectronics_2.csv"))
  dat <-
    tmp %>%
    dplyr::filter(!is.na(longitude)) %>%
    morph_gps(
      x = .,
      id_col = idcollar,
      dt_col = acquisitiontime,
      dt_format = "%Y-%m-%dT%H:%M:%S",
      lon_col =  longitude,
      lat_col = latitude
    )

  expect_condition(
    make_map("a"),
    "x does not inherit from class data.frame",
    fixed = T
  )

  expect_error(
    make_map(dat, id_col = "a")
  )

  expect_error(
    dplyr::mutate(dat, lon = NA) %>%
    dplyr::slice(1) %>%
    make_map(),
    "lon contains 1 missing values",
    fixed = T
  )

  expect_error(
    dplyr::mutate(dat, lat = NA) %>%
    dplyr::slice(1) %>%
    make_map(),
    "lat contains 1 missing values",
    fixed = T
  )

  # dat_large <-
  #   dat %>%
  #   dplyr::slice(rep(1:dplyr::n(), each = 30))

})