Nothing
context(" Full join")
test_that("Full join works.", {
expected <- merge(lhs, rhs, by = "x", all = TRUE)
ans <- lhs %>% start_expr %>% full_join(rhs, x) %>% end_expr
expect_identical(ans, expected)
lhs <- data.table::setkey(data.table::copy(lhs), x)
expected <- merge(lhs, rhs, all = TRUE)
ans <- lhs %>% start_expr %>% full_join(rhs) %>% end_expr
expect_identical(ans, expected)
expected <- merge(website, paypal, by.x = c("name", "session_id"), by.y = c("name", "payment_id"), all = TRUE)
ans <- website %>% start_expr %>% full_join(paypal, "name", session_id = payment_id) %>% end_expr
expect_identical(ans, expected)
})
test_that("Self full join works.", {
expected <- merge(lhs, lhs, by = "x", all = TRUE, allow = TRUE)
ans <- lhs %>% start_expr %>% full_join(, x) %>% end_expr
expect_identical(ans, expected)
})
test_that("Eager full_join works.", {
expected <- merge(lhs, rhs, by = "x", all = TRUE)
ans <- lhs %>% full_join(rhs, x)
expect_identical(ans, expected)
expected <- merge(lhs, lhs, by = "x", all = TRUE, allow = TRUE)
ans <- lhs %>% full_join(, x)
expect_identical(ans, expected)
})
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.