test_that("case-insensitive duplicates", {
out <- data.frame(a = 1:2) %>%
as_duckplyr_df() %>%
mutate(A = a + 1L, b = A - 1L)
expect_identical(out$a, out$b)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.