context("client (format)")
test_that("Can format the overall load", {
x <- list(cluster = "didehpc",
detail = NULL,
summary = data.frame(
name = c("fi--dideclusthn", "fi--didemrchnb"),
free = c(203, 850),
used = c(13, 930),
total = c(216, 1780),
percent_used = c(6, 52),
stringsAsFactors = FALSE),
overall = list(name = "didehpc",
free = 1053,
used = 943,
total = 1996,
percent_used = 47))
class(x) <- "dide_clusterload"
expected <- c(" name free used total % used",
"--------------- ---- ---- ----- ------",
"fi--dideclusthn 203 13 216 6%",
" fi--didemrchnb 850 930 1780 52%",
"--------------- ---- ---- ----- ------",
" didehpc 1053 943 1996 47%")
str <- withr::with_options(list(crayon.enabled = FALSE),
format(x))
expect_equal(str, expected)
str_col <- withr::with_options(list(crayon.enabled = TRUE),
format(x))
expect_true(any(crayon::has_style(str_col)))
expect_equal(crayon::strip_style(str_col), str)
str2 <- withr::with_options(list(crayon.enabled = FALSE),
format(x, nodes = FALSE))
expect_equal(str2, expected[c(1:2, 6)])
withr::with_options(
list(crayon.enabled = FALSE),
expect_equal(capture.output(print(x)), str))
withr::with_options(
list(crayon.enabled = TRUE),
expect_equal(capture.output(print(x)), str_col))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.