tests/testthat/test-basic.R

In unjoin: Separate a Data Frame by Normalization

context("basic")

test_that("unjoin works", {
  library(dplyr)
  data("Seatbelts", package= "datasets")
  x <- unjoin(as.data.frame(Seatbelts), front, rear, kms)
  all.equal(inner_join(x$.idx0, x$data) %>% select(-.idx0), as.data.frame(Seatbelts))

  iris %>% unjoin(-Species)
  chickwts %>% unjoin(weight)

  if (require("gapminder")) {
    gapminder %>%
      group_by(country, continent) %>%
      unjoin()

    gapminder %>%
      unjoin(-country, -continent)
    unjoin(gapminder)
  }
  x <- unjoin(iris, Petal.Width)
  x %>%  expect_named(c(".idx0", "data"))
  x$data %>% inner_join(x$.idx0) %>% expect_named(c("Sepal.Length", "Sepal.Width", "Petal.Length", "Species", ".idx0",
                                                   "Petal.Width"))

  x <- unjoin(iris, Petal.Width, Species, key_col = "vertexes")
  x %>%  expect_named(c("vertexes", "data"))
})


test_that("key col works", {
  lnames <- lapply(unjoin(iris), names)
  bnames <- lapply(unjoin(iris, key_col = "banana"),  names)

  expect_that(sum(".idx0" == unlist(lnames)), equals(2L))

  expect_that(sum("banana" == unlist(bnames)), equals(2L))

})