tests/testthat/test-utils.R

In paleolimbot/mudata: Interchange Tools for Multi-Parameter Spatiotemporal Data

test_that("parallel_gather produces the expected output", {
  # melt manually using gather() and bind_cols()
  gathered_values <- pocmajsum %>%
    dplyr::select(core, depth, Ca, Ti, V) %>%
    tidyr::gather(Ca, Ti, V,
      key = "param", value = "value"
    )
  gathered_sds <- pocmajsum %>%
    dplyr::select(core, depth, Ca_sd, Ti_sd, V_sd) %>%
    tidyr::gather(Ca_sd, Ti_sd, V_sd,
      key = "param_sd", value = "sd"
    )

  pocmajlong <- dplyr::bind_cols(
    gathered_values,
    gathered_sds %>% dplyr::select(sd)
  ) %>% tibble::as_tibble()


  # melt automatically using parallel_gather
  pocmaj_gathered <- parallel_gather(pocmajsum,
    key = "param",
    value = c(Ca, Ti, V),
    sd = c(Ca_sd, Ti_sd, V_sd)
  ) %>%
    tibble::as_tibble()

  # expect identical to manual parallel gather
  expect_identical(pocmaj_gathered, pocmajlong)
})

test_that("parallel gather can select variables using dplyr expressions", {
  # expect various ways of selecting variables to work properly
  pm2 <- pocmajsum %>% dplyr::select(core, depth, Ca, Ti, V, dplyr::ends_with("sd"))
  expect_identical(
    parallel_gather(pm2,
      key = "param",
      value = Ca:V, sd = dplyr::ends_with("sd")
    ),
    parallel_gather(pm2,
      key = "param",
      value = c(Ca, Ti, V), sd = c(Ca_sd, Ti_sd, V_sd)
    )
  )
})

test_that("parallel gather works wih tidyeval", {
  pm2 <- pocmajsum %>% dplyr::select(core, depth, Ca, Ti, V, dplyr::ends_with("sd"))
  values <- c("Ca", "Ti", "V")
  sds <- c("Ca_sd", "Ti_sd", "V_sd")
  expect_identical(
    parallel_gather(pm2, key = "param", value = !!values, sd = !!sds),
    parallel_gather(pm2,
      key = "param",
      value = c(Ca, Ti, V), sd = c(Ca_sd, Ti_sd, V_sd)
    )
  )
})

test_that("parallel gather throws errors", {
  # check no input
  expect_error(
    parallel_gather(pocmajsum, key = "param"),
    "Must pass at least one value = columns in parallel_gather()"
  )
  # check unnamed args
  expect_error(
    parallel_gather(pocmajsum, key = "param", c(Ca, Ti, V)),
    "All arguments to parallel_gather\\(\\) must be named"
  )
  # check inconsistent lengths of args
  expect_error(
    parallel_gather(pocmajsum,
      key = "param",
      value = c(Ca, Ti),
      sd = c(Ca_sd, Ti_sd, V_sd)
    ),
    "All named arguments must refer to the same number of columns"
  )

  expect_error(
    parallel_gather_base(pocmajsum,
      key = "param",
      list()
    ),
    "Must pass at least one value = columns in parallel_gather()"
  )
  expect_error(
    parallel_gather_base(pocmajsum,
      key = "param",
      list(c("Ca", "Ti", "V"))
    ),
    "All arguments to parallel_gather\\(\\) must be named"
  )
})