tests/testthat/test-accdifnser.R

In pobsteta/gftools: Geographic Data Analysis and Modeling for Forests

context("test-accdifnser.R")

test_that("Tableau de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::AccDIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, seuilNb = 30)$Tableau
  df <- data.frame(
    c(seq(from = 20, to = 100, by = 5)),
    c(0.32, 0.34, 0.35, 0.37, 0.38, 0.39, 0.39, 0.40, 0.41, 0.42, 0.43, 0.44, 0.44, 0.44, 0.44, 0.44, 0.43),
    c(0.50, 0.52, 0.54, 0.55, 0.56, 0.57, 0.57, 0.57, 0.55, 0.54, 0.51, 0.49, 0.45, NA, NA, NA, NA),
    c(0.32, 0.34, 0.35, 0.36, 0.35, 0.34, 0.31, 0.31, 0.31, 0.32, 0.35, 0.38, NA, NA, NA, NA, NA),
    c(0.30, 0.35, 0.37, 0.40, 0.45, 0.53, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA),
    c(NA, 0.47, 0.51, 0.51, 0.47, 0.40, 0.30, 0.27, 0.29, 0.36, NA, NA, NA, NA, NA, NA, NA)
  )
  colnames(df) <- colnames(test)
  rownames(test) <- NULL
  rownames(df) <- NULL
  expect_equal(test, df)
  # expect_equal(2*2, 4)
})

test_that("Effectif de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::AccDIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, seuilNb = 30)
  df <- data.frame(
    c(rep("2005 - 2016", each = 5)),
    c("Charme", "Chene pedoncule", "Chene sessile", "Hetre", "Pin sylvestre"),
    c(80, 99, 198, 151, 35)
  )
  colnames(df) <- c("Periode", "libelle", "Nidp")
  df$Periode <- as.character(df$Periode)
  df$libelle <- as.character(df$libelle)
  df$Nidp <- as.integer(df$Nidp)
  test$Effectif <- as.data.frame(test$Effectif)
  rownames(test$Effectif) <- NULL
  rownames(df) <- NULL
  expect_equal(test$Effectif, df)
  # expect_equal(2*2, 4)
})

test_that("Graphe de la foret de Chaux", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  test <- gftools::AccDIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = F, seuilNb = 30)
  expect_identical(class(test$Graphe), c("gg", "ggplot"))
  # expect_equal(2*2, 4)
})

test_that("Fichier null", {
  expect_error(gftools::AccDIFNSER(fichier = NULL, enreg = F, seuilNb = 30))
})

test_that("Fichier incorrect", {
  expect_error(gftools::AccDIFNSER(fichier = "", enreg = F, seuilNb = 30))
})

test_that("Enregistrement des fichiers", {
  skip_on_os("windows")
  skip_on_appveyor()
  skip_on_travis()
  expect_message(
    gftools::AccDIFNSER(fichier = system.file("extdata/shapes/FOREST/forest_chaux.shp", package = "gftools"), enreg = T, seuilNb = 30),
    "Result is saved in:"
  )
  # expect_equal(2*2, 4)
})