# 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.