tests/testthat.R

In cstawitz/RMAS: Read and Write Input and Output for MAS Model

library(testthat)
library(r4MAS)
library(Rcpp)
library(jsonlite)

# Use examples from 'extdata' in 'inst' because it is loaded with R4MAS package
test_example_path <- system.file("extdata", package = "r4MAS")

# Find path of R4MAS dll
libs_path <- system.file("libs", package = "r4MAS")
dll_name <- paste("r4MAS", .Platform$dynlib.ext, sep = "")

if (.Platform$OS.type == "windows") {
  dll_path <- file.path(libs_path, .Platform$r_arch, dll_name)
} else {
  dll_path <- file.path(libs_path, dll_name)
}

test_check("r4MAS")