dwww Home | Show directory contents | Find package

# run package unit tests
if (requireNamespace("tinytest", quietly = TRUE)) {
    suppressPackageStartupMessages(library("xts"))
    use_color <- as.logical(Sys.getenv("_XTS_TINYTEST_COLOR_", FALSE))
    verbosity <- as.integer(Sys.getenv("_XTS_TINYTEST_VERBOSE_", 2))
    cat("tinytest colored output:", use_color,
        "\ntinytest verbosity:", verbosity, "\n")
    tinytest::test_package("xts", color = use_color, verbose = verbosity)
}

Generated by dwww version 1.15 on Wed May 22 22:40:02 CEST 2024.