Renv <- new.env(parent = globalenv())
Renv$x <- c(1,1,3:1,1:4,3);
Renv$y <- c(9,9:1);
Renv$z <- c(2,1:9)
Renv$cy <- as.character(Renv$y)
Renv$x1 <- c(5:1, 6:8, 12:9)
FLenv <- as.FL(Renv)
test_that("order: by one vector",{
eval_expect_equal({
test2 <- order(x1)
},Renv,FLenv)
})
test_that("order: by multiple vectors",{
eval_expect_equal({
test1 <- order(x , y , z)
},Renv,FLenv)
})
test_that("order: by multiple vectors, support of decreasing argument vector",{
eval_expect_equal({
test3 <- order(x, cy, z, decreasing = c(FALSE, TRUE, FALSE))
#method="radix")] not supported
},Renv,FLenv)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.