tests/testthat/helper-global.R

In ISS-Analytics/seminr: Building and Estimating Structural Equation Models

# Load global test variables
if (version$major <= 3 & version$minor <6.0) {
  test_folder <- "../fixtures/V_3_5_X/"
} else {
  test_folder <- "../fixtures/V_3_6_0/"
}

# Recognise if semPlot and rsvg available
# Check if semPlot present
semPlot_present <- requireNamespace("semPlot", quietly = TRUE)
# Check rsvg present
rsvg_present <- requireNamespace("rsvg", quietly = TRUE)