inst/tests/test-utils.R

source("helper-diversitree.R")

context("Utilities")

test_that("Default argument rewriting works", {
  f <- function(a=1) a
  g <- set.defaults(f, a=2)
  expect_that(formals(f)$a, equals(1))
  expect_that(formals(g)$a, equals(2))
  expect_that(attr(g, "srcref"), is_a("NULL"))
})

Try the diversitree package in your browser

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

diversitree documentation built on Sept. 8, 2023, 5:54 p.m.