Nothing
test_that(
"tabit_1",
{
expect_true(
nrow(tabit_1(1)) == 2
)
expect_true(
nrow(
tabit_1(1, useNA = "no")
) == 1
)
expect_true(
nrow(
tabit_1(1, useNA = NULL)
) == 1
)
expect_true(
nrow(
tabit_1(NA, useNA = NULL)
) == 0
)
expect_true(
nrow(
tabit_1(list(), useNA = NULL)
) == 0
)
expect_true(
ncol(
tabit_1(list(), useNA = NULL)
) == 5
)
expect_true(
is.null(
ncol(
tabit_1(list(), useNA = NULL, as_df = FALSE)
)
)
)
expect_true(
ncol(
tabit_1(data.frame(a = 1:10, b = 0))
) == 5
)
}
)
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.