Nothing
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))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.