tests/testthat/test-max_aggregate.R

test_that("max_aggregate works", {
  values <- c(8, 9, 5, 7)
  result <- max(values)

  expect_equal(result, 9)
})
analysr/analysr documentation built on Feb. 13, 2022, 11:22 a.m.