context("test-tariffindsch.R")
test_that("Tableau EPC_SP.csv", {
skip_on_os("windows")
skip_on_appveyor()
skip_on_travis()
test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = F)
df <- data.frame(
c("Epicea commun", "Sapin pectine"),
c(14.96, 12.32),
c(16.30, 12.08),
c(14.64, 11.96),
c(0.15, 0.34),
c(0.19, 0.28),
c(0.15, 0.34)
)
colnames(df) <- c("essence", "SchR", "SchL", "Alg", "SchRcv", "SchLcv", "Algcv")
df$essence <- as.character(df$essence)
test <- as.data.frame(test$Tableau2)
rownames(test) <- NULL
rownames(df) <- NULL
expect_equal(test, df, tolerance = .1)
})
test_that("Graphe1 EPC_SP.csv", {
skip_on_os("windows")
skip_on_appveyor()
skip_on_travis()
test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = F)
expect_identical(class(test$Graphe1), c("gg", "ggplot"))
})
test_that("Graphe1 EPC_SP.csv typvolemerge='tige'", {
skip_on_os("windows")
skip_on_appveyor()
skip_on_travis()
test <- gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"),
typvolemerge = "tige", enreg = F)
expect_identical(class(test$Graphe1), c("gg", "ggplot"))
})
test_that("mappoint", {
skip_on_os("windows")
skip_on_appveyor()
skip_on_travis()
expect_error(gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"),
mappoint = TRUE, latitude = 6.22948408, longitude = 47.49957565, enreg = F))
})
test_that("Fichier null", {
expect_error(gftools::TarifFindSch(fichier = NULL), enreg = F)
})
test_that("Fichier incorrect", {
expect_error(gftools::TarifFindSch(fichier = ""), enreg = F)
})
test_that("Your have no access to file", {
expect_error(gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = "", enreg = F))
})
test_that("Enregistrement du tableau", {
skip_on_os("windows")
skip_on_appveyor()
skip_on_travis()
expect_message(
gftools::TarifFindSch(fichier = system.file("extdata/EPC_SP.csv", package = "gftools"), mercuriale = system.file("extdata/Mercuriale.csv", package = "gftools"), enreg = T),
"Result is saved in:"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.