tests/testthat/test_addColumnTypicalDay.R

context("addTypicalDayId")


test_that("addTypicalDayId", {
  
   data <- readAntares(areas = "all", links = "all" , mcYears = 2, opts = testSt, showProgress = FALSE)
   
   
   data <- addTypicalDayId(data, testSt)
   
   expect_true(all(unique(data$typicalDay))%in% 1:12)
   
   data <- readAntares(areas = "all", links = "all" ,mcYears = 2, showProgress = FALSE, opts = testSt)
   data <- addTypicalDayId(data, testSt)
   
   expect_true(all(unique(data$areas$typicalDay))%in% 1:12)
   expect_true(all(unique(data$links$typicalDay))%in% 1:12)
   
   
})
rte-antares-rpackage/antaresFlowbased documentation built on Oct. 19, 2020, 11:23 a.m.