tests/testthat/test-sunflower.R

test_that("check no error has occurred", {
  # Create data
  data <- data.frame(a = 1:100, b = 1:100, c = 1:100, d = 1:100) / 10
  # Execute function
  expect_identical(sunflower(data), NULL)
})

Try the RepertoiR package in your browser

Any scripts or data that you put into this service are public.

RepertoiR documentation built on Oct. 25, 2021, 9:09 a.m.