/usr/share/doc/r-cran-tibble/tests/testthat/test-enframe.R is in r-cran-tibble 1.4.1-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | context("enframe")
# enframe -----------------------------------------------------------------
test_that("can convert unnamed vector", {
expect_identical(
enframe(3:1),
tibble(name = 1:3, value = 3:1)
)
})
test_that("can convert named vector", {
expect_identical(
enframe(c(a = 2, b = 1)),
tibble(name = letters[1:2], value = as.numeric(2:1))
)
})
test_that("can convert zero-length vector", {
expect_identical(
enframe(logical()),
tibble(name = integer(), value = logical())
)
})
test_that("can use custom names", {
expect_identical(
enframe(letters, name = "index", value = "letter"),
tibble(
index = seq_along(letters),
letter = letters
)
)
})
# deframe -----------------------------------------------------------------
test_that("can deframe two-column data frame", {
expect_identical(
deframe(tibble(name = letters[1:3], value = 3:1)),
c(a = 3L, b = 2L, c = 1L)
)
})
|