tests/testthat/test_utils.R

In tmakowski/ShinyShips: Shiny Application for Visualization of Ships Data

context("utils")

test_that("test get_unique_rows", {
  # Assert check
  expect_error(get_unique_rows(NULL, "a"))
  expect_error(get_unique_rows(data.table::data.table(), NULL))
  expect_error(get_unique_rows(data.table::data.table(), character(0)))
  expect_error(get_unique_rows(data.table::data.table(a = 1), "b"))

  # Calculation check
  df <- data.table::data.table(A = c(1:2, 1:2), B = c("a", "b", "a", "c"))
  expect_equal(
    get_unique_rows(df, c("A", "B")),
    data.table::data.table(A = c(1, 2, 2), B = c("a", "b", "c"))
  )
  expect_equal(
    get_unique_rows(df, "A"),
    data.table::data.table(A = 1:2)
  )
  expect_equal(
    get_unique_rows(data.table::data.table(A = 1:2), "A"),
    data.table::data.table(A = 1:2)
  )
})