tests/testthat/test_xkey.R

context("xkey")
require(fql)

test_that("keying works", {
  x <- data.frame(name=c("a", "b"), value=2:1, row.names=c("1", "2"))
  y <- x %>% xkey("a")
  expect_equal(attributes(y)$key, "a")
})
HikaGenji/fql documentation built on April 12, 2021, 8:36 a.m.