Nothing
context("KQL Build")
# filter ------------------------------------------------------------------
test_that("filter generates simple expressions",
{
out <- tbl_kusto_abstract(data.frame(x = 1), "foo") %>%
filter(x > 1L) %>%
kql_build()
expect_equal(out$ops[[2]][[1]], kql("where ['x'] > 1"))
})
# mutate ------------------------------------------------------------------
test_that("mutate generates simple expressions",
{
out <- tbl_kusto_abstract(data.frame(x = 1), "foo") %>%
mutate(y = x + 1L) %>%
kql_build()
expect_equal(out$ops[[2]], kql("extend ['y'] = ['x'] + 1"))
})
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.