Nothing
test_cross_join <- function() {
x <- data.frame(
x = c(1, 2)
)
y <- data.frame(
y = c(3, 4)
)
final <- natural_join(x, y, by = character(0), jointype = "FULL")
expect <- wrapr::build_frame(
"x" , "y" |
1 , 3 |
1 , 4 |
2 , 3 |
2 , 4 )
expect_true(wrapr::check_equiv_frames(expect, final))
invisible(NULL)
}
test_cross_join()
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.