tests/testthat/test-corrplot.R false testing

[PiXeLAllan]

Lines 112 to 122 of test-corrplot.R are supposed to be testing that different orderings of the columns differ but the actual test is that M (a correlation matrix) does not equal a list! Amended code below with correction in bold.

test_that('Try different ordering', {
M = cor(mtcars)

expect_true(identical(M, corrplot(M)$corr))
expect_false(identical(M, corrplot(M, order = 'AOE')$corr))
expect_false(identical(M, corrplot(M, order = 'FPC')$corr))
expect_false(identical(M, corrplot(M, order = 'hclust')$corr))
expect_false(identical(M, corrplot(M, order = 'alphabet')$corr))

expect_silent(corrplot(M, addrect = 2, order = 'hclust', type = 'full'))
})