Nothing
test_that("can filter the data.table", {
df <- data.table(x = 1:10)
df <- df %>%
filter(between(x, 1, 4))
expect_equal(df$x, 1:4)
})
test_that("can filter a data.frame", {
df <- data.frame(x = 1:10)
df <- df %>%
filter(between(x, 1, 4))
expect_equal(df$x, 1:4)
})
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.