tests/testthat/test-utils.R

context("utils")

test_that("call_or_default", {
  expect_identical(call_or_default(NULL, 0), 0)
  expect_identical(call_or_default(sin, 1), sin(1))
})

test_that("get_digtis", {
  expect_equal(get_digits(c("0.1", "0.01", ".501", ".5001", "123.321", "123", "012", "5.")),
    c(1, 2, 3, 4, 3, 0, 0, 0))
})

test_that("copy_dim", {
  x <- c(1, 2, 3)
  y <- format(x)
  expect_true(!is.array(copy_dim(x, y)))

  x <- c(1,2,3,4)
  m <- matrix(x, 2, dimnames = list(c("a", "b")))
  y <- format(x)
  y2 <- copy_dim(m, y)
  expect_true(is.matrix(y2))
  expect_identical(dim(y2), dim(m))
  expect_identical(dimnames(y2), dimnames(m))

  x <- rnorm(24)
  arr <- array(x, c(2, 3, 4),
    dimnames = list(letters[1:2], letters[1:3], letters[1:4]))
  y <- format(x)
  y2 <- copy_dim(arr, y)
  expect_true(is.array(y2))
  expect_identical(dim(y2), dim(arr))
  expect_identical(dimnames(y2), dimnames(arr))
})

Try the formattable package in your browser

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

formattable documentation built on May 29, 2017, 7:04 p.m.