Nothing
#' Test that get_var_corr_ returns a warning
library(manymodelr)
testthat::test_that(desc="Tests that get_var_corr
returns a warning",
code={
skip_on_oldrel()
testthat::expect_warning(get_var_corr_(yields),
"Columns with classes in drop_columns were dropped.",
fixed = TRUE)
# Uses get_var_corr but we cannot just assume that it works.
# Verify that things work as intended
testthat::expect_true("upper_ci" %in% names(get_var_corr_(mtcars)))
# Test method changes
testthat::expect_false(any(c("upper_ci","lower_ci") %in%
names(get_var_corr_(mtcars,
method = "spearman", exact = FALSE))))
# Expect length
testthat::expect_true(length(names(get_var_corr_(mtcars,
method = "kendall", exact = FALSE))) == 4)
expect_equal(nrow(get_var_corr_(mtcars,
subset_cols = list(c("mpg","vs"),
c("disp","wt")),
method="spearman",exact=FALSE)), 2)
})
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.