tests/testthat/test-is_numeric_list.R

context("is_numeric_list")

test_that("is_numeric_list use", {

  expect_true(DAISIE:::is_numeric_list(x = as.list(c(3))))
  expect_true(DAISIE:::is_numeric_list(x = as.list(3)))
  expect_false(DAISIE:::is_numeric_list(x = as.list(NA)))
  expect_false(DAISIE:::is_numeric_list(as.list("Not a number")))
})
xieshu95/Trait_dependent_TraiSIE documentation built on Nov. 22, 2019, 7:51 a.m.