Fix/commented tests (#205)

* decommented tests * fix cran check failed cause usage cpu * fix failed test coverage ---------
rte-antares-rpackage · Oct 17, 2023 · 2f801e6 · 2f801e6
1 parent 4c02ee7
commit 2f801e6
Show file tree

Hide file tree

Showing 9 changed files with 2,153 additions and 2,149 deletions.
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -1,4 +1,8 @@
 library(testthat)
 library(antaresViz)
 
+# CRAN limite CPU usage
+ # issue : 
+data.table::setDTthreads(2)
+
 test_check("antaresViz")
diff --git a/tests/testthat/test-exchangesStack.R b/tests/testthat/test-exchangesStack.R
diff --git a/tests/testthat/test-graphUtils.R b/tests/testthat/test-graphUtils.R
@@ -1,47 +1,47 @@
-# context(".compOpts")
-# 
-# 
-# test_that(".compOpts", {
-# 
-#  expect_true(.compOpts("", "cp")$ncharts == 2)
-#  expect_true(.compOpts("", NULL)$ncharts == 1)
-#  expect_true(.compOpts(list(), NULL)$ncharts == 1)
-# }) 
-# 
-# if(.requireRhdf5_Antares(stopP = FALSE)){
-#  context(".dateRangeJoin")
-#  test_that(".dateRangeJoin", {
-#  dt <- list()
-#  dt$x <- list(list(dateRange = as.Date(c("2010-01-01", "2010-01-10"))),
-#  list(dateRange = as.Date(c("2010-01-02", "2010-01-09"))))
-# 
-# 
-# 
-# 
-#  expect_true(.dateRangeJoin(dt, "union", "min") == as.Date("2010-01-01"))
-#  expect_true(.dateRangeJoin(dt, "union", "max") == as.Date("2010-01-10"))
-#  expect_true(.dateRangeJoin(dt, "intersect", "max") == as.Date("2010-01-09"))
-#  expect_true(.dateRangeJoin(dt, "intersect", "min") == as.Date("2010-01-02"))
-# 
-#  dt2 <- list()
-#  dt2$x <- list(list(ar = list(dateRange = as.Date(c("2010-01-01", "2010-01-10")))),
-#  list(ar = list(dateRange = as.Date(c("2010-01-02", "2010-01-09")))))
-# 
-#  expect_true(.dateRangeJoin(dt2, "union", "min", "ar") == as.Date("2010-01-01"))
-#  expect_true(.dateRangeJoin(dt2, "union", "max", "ar") == as.Date("2010-01-10"))
-#  expect_true(.dateRangeJoin(dt2, "intersect", "max", "ar") == as.Date("2010-01-09"))
-#  expect_true(.dateRangeJoin(dt2, "intersect", "min", "ar") == as.Date("2010-01-02"))
-# 
-#  })
-# 
-#  context(".loadH5Data")
-#  test_that(".loadH5Data", {
-#  opts <- setSimulationPath(studyPath)
-#  sharerequest <- list()
-#  sharerequest$mcYearh_l <- "all"
-#  sharerequest$tables_l <- c("areas", "links", "clusters", "districts")
-#  sharerequest$timeSteph5_l <- "hourly"
-#  expect_true("antaresDataList" %in% class(.loadH5Data(sharerequest, opts)))
-# 
-#  })
-# }
+context(".compOpts")
+
+
+test_that(".compOpts", {
+
+ expect_true(.compOpts("", "cp")$ncharts == 2)
+ expect_true(.compOpts("", NULL)$ncharts == 1)
+ expect_true(.compOpts(list(), NULL)$ncharts == 1)
+})
+
+if(.requireRhdf5_Antares(stopP = FALSE)){
+ context(".dateRangeJoin")
+ test_that(".dateRangeJoin", {
+ dt <- list()
+ dt$x <- list(list(dateRange = as.Date(c("2010-01-01", "2010-01-10"))),
+ list(dateRange = as.Date(c("2010-01-02", "2010-01-09"))))
+
+
+
+
+ expect_true(.dateRangeJoin(dt, "union", "min") == as.Date("2010-01-01"))
+ expect_true(.dateRangeJoin(dt, "union", "max") == as.Date("2010-01-10"))
+ expect_true(.dateRangeJoin(dt, "intersect", "max") == as.Date("2010-01-09"))
+ expect_true(.dateRangeJoin(dt, "intersect", "min") == as.Date("2010-01-02"))
+
+ dt2 <- list()
+ dt2$x <- list(list(ar = list(dateRange = as.Date(c("2010-01-01", "2010-01-10")))),
+ list(ar = list(dateRange = as.Date(c("2010-01-02", "2010-01-09")))))
+
+ expect_true(.dateRangeJoin(dt2, "union", "min", "ar") == as.Date("2010-01-01"))
+ expect_true(.dateRangeJoin(dt2, "union", "max", "ar") == as.Date("2010-01-10"))
+ expect_true(.dateRangeJoin(dt2, "intersect", "max", "ar") == as.Date("2010-01-09"))
+ expect_true(.dateRangeJoin(dt2, "intersect", "min", "ar") == as.Date("2010-01-02"))
+
+ })
+
+ context(".loadH5Data")
+ test_that(".loadH5Data", {
+ opts <- setSimulationPath(studyPath)
+ sharerequest <- list()
+ sharerequest$mcYearh_l <- "all"
+ sharerequest$tables_l <- c("areas", "links", "clusters", "districts")
+ sharerequest$timeSteph5_l <- "hourly"
+ expect_true("antaresDataList" %in% class(.loadH5Data(sharerequest, opts)))
+
+ })
+}
diff --git a/tests/testthat/test-plotMap.R b/tests/testthat/test-plotMap.R
@@ -1,138 +1,138 @@
-# context("plotMap")
-# 
-# test_that("plotMap, no interactive", {
-# 
-#  dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  testClass <- function(obj){
-#  class(obj)[1] == 'combineWidgets'
-#  }
-#  load(system.file("mapLayout/ml.rda", package = "antaresViz"))
-# 
-#  listArgs <- list(noarg = list(x = dta, interactive = FALSE, mapLayout = ml),
-#  colorLinks = list(x = dta, interactive = FALSE, mapLayout = ml, colLinkVar = "FLOW LIN."),
-#  colorAll = list(x = dta, interactive = FALSE, mapLayout = ml, colLinkVar = "FLOW LIN.",
-#  colAreaVar = "OP. COST")
-#  )
-# 
-#  lapply(listArgs, function(X){
-#  re1 <- do.call(plotMap, X)
-#  expect_true(testClass(re1))
-#  })
-# 
-# })
-# 
-# test_that("plotMap, no interactive return error", {
-# 
-#  dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  load(system.file("mapLayout/ml.rda", package = "antaresViz"))
-# 
-#  expect_error(plotMap(x = dta, mapLayout = ml , interactive = FALSE, compare = "areas"))
-# 
-# 
-# })
-# 
-# test_that("plotMap, interactive", {
-#  dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  load(system.file("mapLayout/ml.rda", package = "antaresViz"))
-#  VV <- plotMap(x = dta, mapLayout = ml, .runApp = FALSE, interactive = TRUE)
-#  VV$init()
-#  expect_true("MWController" %in% class(VV))
-# })
-# 
-# test_that("plotMap, no interactive, x and refStudy are antaresDataList", {
-#  dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  load(system.file("mapLayout/ml.rda", package = "antaresViz"))
-# resPlotMap <- plotMap(x = dta, 
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap)
-#  expect_gt(valToValid, 50000)
-#  # with refStudy
-# resPlotMap <- plotMap(x = dta, 
-#  refStudy = dta,
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap)
-#  expect_equal(valToValid, 0)
-#  # edit myData
-#  data2 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  data2$areas[ , LOAD := as.double(LOAD)][area=="c", LOAD := as.double(LOAD +2500.0)]
-# resPlotMap2 <- plotMap(x = data2, 
-#  refStudy = dta,
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap2))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap2)
-#  expect_equal(valToValid, 2500)
-# })
-# 
-# test_that("plotMap, no interactive, x is a list of antaresDataList and refStudy an antaresDataList", {
-#  data1 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  dataList <- list(data1, data1, data1)
-#  load(system.file("mapLayout/ml.rda", package = "antaresViz"))
-# resPlotMap <- plotMap(x = dataList, 
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap,
-#  idWidget = 2)
-#  expect_gt(valToValid, 50000)
-#  # with refStudy
-# resPlotMap <- plotMap(x = dataList, 
-#  refStudy = data1,
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap,
-#  idWidget = 2)
-#  expect_equal(valToValid, 0)
-#  # edit myData
-#  data2 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  data1 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
-#  data2$areas[ , LOAD := as.double(LOAD)][area=="c", LOAD := as.double(LOAD +2500.0)]
-#  dataList2 <- list(data1, data2, data1)
-#  expect_equal(dataList2[[2]]$areas[area=="c", LOAD], dataList2[[1]]$areas[area=="c", LOAD] + 2500)
-# resPlotMap2 <- plotMap(x = dataList2, 
-#  refStudy = data1,
-#  mapLayout = ml, 
-#  interactive = FALSE,
-#  colAreaVar = "LOAD",
-#  sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
-#  expect_true("htmlwidget" %in% class(resPlotMap2))
-# valToValid <- .getDataFromPlotMap(area = "c", 
-#  time = "sam. 05 mai 2018<br/>17:00",
-#  variable = "LOAD",
-#  htmlPlotMap = resPlotMap2,
-#  idWidget = 2)
-#  expect_equal(valToValid, 2500)
-# })
+context("plotMap")
+
+test_that("plotMap, no interactive", {
+
+ dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ testClass <- function(obj){
+ class(obj)[1] == 'combineWidgets'
+ }
+ load(system.file("mapLayout/ml.rda", package = "antaresViz"))
+
+ listArgs <- list(noarg = list(x = dta, interactive = FALSE, mapLayout = ml),
+ colorLinks = list(x = dta, interactive = FALSE, mapLayout = ml, colLinkVar = "FLOW LIN."),
+ colorAll = list(x = dta, interactive = FALSE, mapLayout = ml, colLinkVar = "FLOW LIN.",
+ colAreaVar = "OP. COST")
+ )
+
+ lapply(listArgs, function(X){
+ re1 <- do.call(plotMap, X)
+ expect_true(testClass(re1))
+ })
+
+})
+
+test_that("plotMap, no interactive return error", {
+
+ dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ load(system.file("mapLayout/ml.rda", package = "antaresViz"))
+
+ expect_error(plotMap(x = dta, mapLayout = ml , interactive = FALSE, compare = "areas"))
+
+
+})
+
+test_that("plotMap, interactive", {
+ dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ load(system.file("mapLayout/ml.rda", package = "antaresViz"))
+ VV <- plotMap(x = dta, mapLayout = ml, .runApp = FALSE, interactive = TRUE)
+ VV$init()
+ expect_true("MWController" %in% class(VV))
+})
+
+test_that("plotMap, no interactive, x and refStudy are antaresDataList", {
+ dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ load(system.file("mapLayout/ml.rda", package = "antaresViz"))
+ resPlotMap <- plotMap(x = dta,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap)
+ expect_gt(valToValid, 50000)
+ # with refStudy
+ resPlotMap <- plotMap(x = dta,
+ refStudy = dta,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap)
+ expect_equal(valToValid, 0)
+ # edit myData
+ data2 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ data2$areas[ , LOAD := as.double(LOAD)][area=="c", LOAD := as.double(LOAD +2500.0)]
+ resPlotMap2 <- plotMap(x = data2,
+ refStudy = dta,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap2))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap2)
+ expect_equal(valToValid, 2500)
+})
+
+test_that("plotMap, no interactive, x is a list of antaresDataList and refStudy an antaresDataList", {
+ data1 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ dataList <- list(data1, data1, data1)
+ load(system.file("mapLayout/ml.rda", package = "antaresViz"))
+ resPlotMap <- plotMap(x = dataList,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap,
+ idWidget = 2)
+ expect_gt(valToValid, 50000)
+ # with refStudy
+ resPlotMap <- plotMap(x = dataList,
+ refStudy = data1,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap,
+ idWidget = 2)
+ expect_equal(valToValid, 0)
+ # edit myData
+ data2 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ data1 <- readAntares(areas = "all", links = "all", showProgress = FALSE)
+ data2$areas[ , LOAD := as.double(LOAD)][area=="c", LOAD := as.double(LOAD +2500.0)]
+ dataList2 <- list(data1, data2, data1)
+ expect_equal(dataList2[[2]]$areas[area=="c", LOAD], dataList2[[1]]$areas[area=="c", LOAD] + 2500)
+ resPlotMap2 <- plotMap(x = dataList2,
+ refStudy = data1,
+ mapLayout = ml,
+ interactive = FALSE,
+ colAreaVar = "LOAD",
+ sizeAreaVars = c("LOAD", "WIND", "SOLAR"))
+ expect_true("htmlwidget" %in% class(resPlotMap2))
+ valToValid <- .getDataFromPlotMap(area = "c",
+ time = "sam. 05 mai 2018<br/>17:00",
+ variable = "LOAD",
+ htmlPlotMap = resPlotMap2,
+ idWidget = 2)
+ expect_equal(valToValid, 2500)
+})
 
 # test_that("plotMap, interactive, x and refStudy are antaresDataList", {
 # dta <- readAntares(areas = "all", links = "all", showProgress = FALSE)

diff --git a/tests/testthat/test-plotThermalGroupCapacities.R b/tests/testthat/test-plotThermalGroupCapacities.R
@@ -1,10 +1,10 @@
-# context("plotThermalGroupCapacities")
-# 
-# test_that("plotThermalGroupCapacities", {
-#  opts <- setSimulationPath(studyPath)
-#  GG <- plotThermalGroupCapacities( data = thermalGroupCapacities(opts))
-# 
-#  expect_true("htmlwidget" %in% class(GG))
-# 
-# })
-# 
+context("plotThermalGroupCapacities")
+
+test_that("plotThermalGroupCapacities", {
+ opts <- setSimulationPath(studyPath)
+ GG <- plotThermalGroupCapacities( data = thermalGroupCapacities(opts))
+
+ expect_true("htmlwidget" %in% class(GG))
+
+})
+