Nothing
test_distinct <- function() {
table_rep <- mk_td("test_table", c("a", "b", "c", "d"))
ops <- project(table_rep, groupby = c("a", "b", "c"))
sql <- to_sql(ops, rquery::rquery_default_db_info())
invisible(NULL)
}
test_distinct()
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.