library("foehnix")
library("testthat")
# We cannot do these checks during R CMD check as the files
# will not be available (see .Rbuildignore; data will be packed).
if (!is_testing()) {
# ------------------------------------------------------------
# ------- testing the csv files in data-raw (demodata) -------
# ------------------------------------------------------------
test_that("md5 sums of CSV data sets", {
files <- list("ellboegen.csv" = "a48b770830a688cb31dd56b9900bd46a",
"sattelberg.csv" = "2cc74fcb6c02361f0fed26e18be247a2",
"viejas.csv" = "f1a19ec04637fc231bc33b052ca2aeb5",
"luckyfive.csv" = "529ef6465418c45a7656c8dc2c027c73")
cat("\n\n", getwd(), "\n\n")
for (file in names(files)) {
# Path relative to this file.
fullfile <- sprintf("../../data-raw/%s", file)
##cat("\n--------------------\n", fullfile, "\n",
## getwd(), "\n", tools::md5sum(fullfile), "->", files[[file]], "\n")
expect_true(tools::md5sum(fullfile) == files[[file]])
}
})
# ------------------------------------------------------------
# --------- testing the rda files in data (demodata) ---------
# ------------------------------------------------------------
test_that("md5 sums of CSV data sets", {
files <- list("ellboegen.rda" = "9ab817dd24b80297c06d7108c241c45e",
"sattelberg.rda" = "cc65d0e08ab8be6dd882a98d5bf2766b",
"viejas.rda" = "842165bf047d8d8a9a51b039b7dda100",
"luckyfive.rda" = "7c939315ef2fb3b7f01ff9e98d05068c")
for (file in names(files)) {
# Path relative to the "tests/testthat.R" script
# Path relative to this file.
fullfile <- sprintf("../../data/%s", file)
##cat("\n--------------------\n", fullfile, "\n",
## getwd(), "\n", tools::md5sum(fullfile), "->", files[[file]], "\n")
expect_true(tools::md5sum(fullfile) == files[[file]])
}
})
} # End of "is_testing"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.