tests/testthat/test-loggingsimulation.R

In VincyaneBadouard/LoggingLab: An R Package to Simulate Forest Logging

test_that("loggingsimulation", {

  # Data loading
  data(Paracou6_2016) # inventory
  Paracou6_2016 <- dplyr::slice(Paracou6_2016, 1:2000) # data reduction

  data(PlotMask) # inventoried plot mask
  data(DTMParacou) # topography
  data(CreekDistances) # relative elevation
  data(SpeciesCriteria) # species exploitability criteria
  data(ForestZoneVolumeParametersTable) # volume parameters
  data(ParamCrownDiameterAllometry) # parameters values of the crown diameter allometry

  # Check args
  expect_error(loggingsimulation(Paracou6_2016, plotmask = PlotMask, topography = DTMParacou,
                                 creekverticaldistance = RE$distvert,
                                 creekhorizontaldistance = RE$disthorz,
                                 speciescriteria = SpeciesCriteria,
                                 volumeparameters = ForestZoneVolumeParametersTable,
                                 crowndiameterparameters = ParamCrownDiameterAllometry, scenario = "RIL1",
                                 iter = FALSE, cores = FALSE),
               regexp = "The 'iter' and 'cores' arguments of the 'loggingsimulation' function must be numeric")


  # expect_true(class(Rslt) == "list")

})