tests/testthat/test-S3-select.R

In BAAQMD/geotools: Manipulate and Filter Geospatial Data

context("S3 dplyr::select()")

data(meuse, package = "sp")
coordinates(meuse) <- ~ x + y

selected <-
  dplyr::select(meuse, Pb = lead, Cu = copper)

test_that("dplyr::select() worked", {
  expect_equal(names(selected), c("Pb", "Cu"))
})

test_that("values unchanged", {
  expect_identical(selected[["Pb"]], meuse$lead)
  expect_identical(selected[["Cu"]], meuse$copper)
})

test_that("class unchanged", {
  expect_is(meuse, "SpatialPointsDataFrame")
  expect_is(selected, "SpatialPointsDataFrame")
})