context("simple")
test_that("NULL", {
expect_equal(as.simple(NULL), NULL)
})
test_that("logical", {
expect_equal(as.simple(c(TRUE, FALSE, NA)),
c(TRUE, FALSE, NA))
})
test_that("raw", {
expect_equal(as.simple(as.raw(c(0, 1, 255))),
as.raw(c(0, 1, 255)))
})
test_that("integer", {
expect_equal(as.simple(c(0L, 1L, NA)),
c(0L, 1L, NA))
})
test_that("double", {
x <- c(0, -0, 1, NaN, NA, Inf)
y <- c(0, 0, 1, NaN, NA, Inf)
expect_true(identical(as.simple(x), y, FALSE))
})
test_that("numeric", {
x <- c(0, -0, 1, NaN, NA, Inf)
expect_true(identical(as.simple.double(x),
as.simple.numeric(x), FALSE))
})
test_that("complex", {
x <- complex(re = c(NA, 0, -0),
im = c( 0, 0, 0))
y <- complex(re = c(NA, 0, 0),
im = c(NA, 0, 0))
expect_true(identical(Re(as.simple(x)), Re(y), FALSE))
expect_true(identical(Im(as.simple(x)), Im(y), FALSE))
})
test_that("character", {
x <- c("fa\u00E7ile", "fa\xE7ile")
Encoding(x) <- c("UTF-8", "latin1")
y <- rep(x[1], 2)
expect_true(identical(as.simple(x), y))
expect_true(identical(Encoding(as.simple(x)), Encoding(y)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.