test_that("complex and cartesian work", {
x <- coo_single(tibble::tibble(x=0.213, y=-9.2324))
expect_equivalent(x, x %>% cartesian_2_complex() %>% complex_2_cartesian())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.