tests/testthat/test_axes_data.R

In lvaudor/mapdO: mapdO: exploration de données fluviales

context("Get data and labels regarding profiles")
library(mapdO)
setwd("/data/user/v/lvaudor/zPublish/shiny/mapdO")
test_that("Get_datapath() returns a path towards an existing file when metric exists", {
  expect_true(file.exists(get_datapath("AX0005","Profil en long")))
  expect_error(get_data("AX0005","POUETPOUET"), "There is no datafile for this.")
})

test_that("Get_data() returns a tibble for proper datafile", {
  expect_true(dplyr::is.tbl(get_data("AX0005","Profil en long")))
  expect_error(get_data(1,"POUETPOUET"), "There is no datafile for this.")
})

test_that("Get_info() returns a list of length 2",{
  expect_true(is.list(get_info("AX0005","Profil en long")))
  expect_true(length(get_info("AX0005","Profil en long"))==2)
})