tests/testthat/test_addNetPosition.R

In rte-antares-rpackage/antaresFlowbased: Run FlowBased Simulations on Antares

context("addNetPosition")

test_that("computeFB",{

  data <- readAntares(area = "all", links = "all", mcYears = 2, opts = testSt)
  data <- addNetPosition(data, opts = testSt, adq = FALSE)
  
  
  expect_true(all(data$areas[,sum(Balance_CWE), by =  c('timeId', 'mcYear')]$V1 == 0))
  
  
  ipn1 <- data$areas[!is.na(Balance_CWE)]
  ipn12 <- melt(giveIpn( data$links), id = 1:2)
  ipn1 <- ipn1[ipn1$area%in%c("be", "de", "fr","nl")]
  expect_true(all(ipn1$Balance_CWE==ipn12$value))
  
  
  
  
  data2 <- addNetPosition(data, opts = testSt, adq = FALSE, inAreas = c("fr", "be", "de", "nl", "at"))
  expect_true(all(data2$areas[,sum(Balance_CWE), by =  c('timeId', 'mcYear')]$V1 == 0))
  
})