Nothing
test_join_table_consist <- function() {
d <- wrapr::build_frame(
"Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species" |
5.1 , 3.5 , 1.4 , 0.2 , "setosa" )
control_table <- wrapr::qchar_frame(
Part, Measure, Value |
Sepal, Length, Sepal.Length |
Sepal, Width, Sepal.Width |
Petal, Length, Petal.Length |
Petal, Width, Petal.Width )
# had been throwing as both tables got same temp-id
natural_join(control_table, d, by = NULL)
invisible(NULL)
}
test_join_table_consist()
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.