test_that("cor_mutations() gives consistent result", {
data <- data_nutlin() %>%
dplyr::filter(!is.na(.data$AUC)) %>%
add_ids("Cell line")
expect_snapshot(cor_mutations(data, response = "AUC"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.