Nothing
context("sprinkle_align")
x <- dust(head(mtcars))
# Functional Requirement 1 ------------------------------------------
test_that(
"Correctly reassigns the appropriate elements of the halign column in the table part.",
{
halign <- vector("character", nrow(x$body))
halign[x$body$row == 1] <- "left"
expect_equal(
sprinkle_align(x, rows = 1, halign = "left")$body$halign,
halign
)
}
)
test_that(
"Correctly reassigns the appropriate elements of the halign column in the table part.",
{
halign <- vector("character", nrow(x$body))
halign[x$body$row == 2 & x$body$col %in% 4:5] <- "center"
expect_equal(
sprinkle_align(x, rows = 2, cols = 4:5, halign = "center")$body$halign,
halign
)
}
)
test_that(
"Correctly reassigns the appropriate elements bg column in the table part.",
{
halign <- vector("character", nrow(x$body))
halign[x$body$row == 2 & x$body$col %in% 4:5] <- "right"
expect_equal(
sprinkle_align(x, rows = c(2, 2), cols = 4:5, halign = "right",
fixed = TRUE)$body$halign,
halign
)
}
)
test_that(
"Correctly reassigns the appropriate elements of the valign column in the table part.",
{
valign <- vector("character", nrow(x$body))
valign[x$body$row == 1] <- "top"
expect_equal(
sprinkle_align(x, rows = 1, valign = "top")$body$valign,
valign
)
}
)
test_that(
"Correctly reassigns the appropriate elements of the valign column in the table part.",
{
valign <- vector("character", nrow(x$body))
valign[x$body$row == 2 & x$body$col %in% 4:5] <- "middle"
expect_equal(
sprinkle_align(x, rows = 2, cols = 4:5, valign = "middle")$body$valign,
valign
)
}
)
test_that(
"Correctly reassigns the appropriate elements bg column in the table part.",
{
valign <- vector("character", nrow(x$body))
valign[x$body$row == 2 & x$body$col %in% 4:5] <- "bottom"
expect_equal(
sprinkle_align(x, rows = c(2, 2), cols = 4:5, valign = "bottom",
fixed = TRUE)$body$valign,
valign
)
}
)
test_that(
"Correctly skips reassignment when valign = halign = NULL",
{
expect_equal(
sprinkle_align(x, valign = NULL, halign = NULL),
x
)
}
)
test_that(
"Function succeeds when called on a dust_list object",
{
expect_silent(
dplyr::group_by(mtcars, am, vs) %>%
dust(ungroup = FALSE) %>%
sprinkle_align(halign = "left")
)
}
)
# Functional Requirement 2 ------------------------------------------
test_that(
"Casts an error if x is not a dust object.",
{
expect_error(sprinkle_align(mtcars))
}
)
# Functional Requirement 3 ------------------------------------------
test_that(
"Casts an error if halign is not a character",
{
expect_error(sprinkle_align(x, halign = c(1:2)))
}
)
# Functional Requirement 4 ------------------------------------------
test_that(
"Casts an error if part is not one of body, head, foot, or interfoot",
{
expect_error(sprinkle_align(x, halign = "left", part = "not_a_part"))
}
)
# Functional Requirement 5 ------------------------------------------
test_that(
"Casts an error if fixed is not a logical(1)",
{
expect_error(sprinkle_align(x, valign = "top", fixed = "yes"))
}
)
test_that(
"Casts an error if fixed is not a logical(1)",
{
expect_error(sprinkle_align(x, valign = "bottom", fixed = c(TRUE, FALSE)))
}
)
# Functional Requirement 6 ------------------------------------------
test_that(
"Casts an error if recycle is not one of none, rows, or cols",
{
expect_error(sprinkle_align(x, halign = "right", recycle = "not_an_option"))
}
)
# Functional Requirement 7 ------------------------------------------
test_that(
"Casts an error if valign is not a character",
{
expect_error(sprinkle_align(x, valign = c(1:2)))
}
)
# Functional Requirement 8 ------------------------------------------
test_that(
"Cast an error if recycle = 'none' and halign does not have length 1.",
{
expect_error(
sprinkle(sprinkle_align(x, halign = c("left", "right")))
)
}
)
test_that(
"Passes if recycle != 'none' and halign does not have length 1.",
{
expect_silent(
sprinkle_align(x, halign = c("left", "right"),
recycle = "rows")
)
}
)
# Functional Requirement 9 ------------------------------------------
test_that(
"Cast an error if recycle = 'none' and halign does not have length 1.",
{
expect_error(
sprinkle(sprinkle_align(x, valign = c("bottom", "top")))
)
}
)
test_that(
"Passes if recycle != 'none' and halign does not have length 1.",
{
expect_silent(
sprinkle_align(x, valign = c("bottom", "top"),
recycle = "rows")
)
}
)
# Functional Requirement 10 -----------------------------------------
test_that(
"Cast an error if halign is not one of c('left', 'center', 'right')",
{
expect_error(
sprinkle_align(x, halign = "something")
)
}
)
# Functional Requirement 11 -----------------------------------------
test_that(
"Cast an error if valign is not one of c('bottom', 'middle', 'top')",
{
expect_error(
sprinkle_align(x, valign = "something")
)
}
)
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.