Nothing
test_relop_natural_join <- function() {
d1 <- build_frame(
"key", "val", "val1" |
"a" , 1 , 10 |
"b" , 2 , 11 |
"c" , 3 , 12 )
d2 <- build_frame(
"key", "val", "val2" |
"a" , 5 , 13 |
"b" , 6 , 14 |
"d" , 7 , 15 )
# key matching join
optree <- natural_join(local_td(d1), local_td(d2),
jointype = "FULL", by = 'key')
res1 <- ex_data_table(optree)
expect_true(is.data.frame(res1))
# full cross-product join
# (usually with jointype = "FULL", but "LEFT" is more
# compatible with rquery field merg semantics).
optree2 <- natural_join(local_td(d1), local_td(d2),
jointype = "LEFT", by = NULL)
res2 <- ex_data_table(optree2)
# notice ALL non-"by" fields take coalese to left table.
expect_true(is.data.frame(res2))
invisible(NULL)
}
test_relop_natural_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.