tests/testthat/test-S3-select.R

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")
})
BAAQMD/geotools documentation built on Feb. 29, 2024, 5:44 a.m.