tests/testthat/test_parallel.R

In windfarmGA: Genetic Algorithm for Wind Farm Layout Optimization

context("Parallel")
library(sf)

test_that("Test Parallelisation", {
  skip_on_os("windows")
  # skip_if(Sys.info()["machine"] != "x86-64")
  
  ## Inputs ##################
  Polygon1 <- sf::st_as_sf(sf::st_sfc(
    sf::st_polygon(list(cbind(
      c(4498482, 4498482, 4499991, 4499991, 4498482),
      c(2668272, 2669343, 2669343, 2668272, 2668272)))),
    crs = 3035
  ))
  wind <- data.frame(ws = 12, wd = 0)
  
  ## genetic_algorithm ####################
  ## Default amount of Cluster
  res <- genetic_algorithm(Polygon1 = Polygon1,
                           n = 12, iteration = 2,
                           vdirspe = wind,
                           Rotor = 30,
                           RotorHeight = 100, Parallel = TRUE)
  expect_true(nrow(res) == 2)
  expect_is(res, "matrix")
  expect_false(any(unlist(sapply(res, is.na))))

  ## Too many Cluster
  skip("Too many clusters")
  res <- expect_warning(
    genetic_algorithm(Polygon1 = Polygon1,
                      n = 12, iteration = 2,
                      vdirspe = wind,
                      Rotor = 30,
                      RotorHeight = 100,
                      Parallel = TRUE, numCluster = 10))
  expect_true(nrow(res) == 2)
  expect_is(res, "matrix")
  expect_false(any(unlist(sapply(res, is.na))))
})