tests/testthat/test-stack-native-parity.R

test_that("native backend options are accepted", {
  old <- options(NNS.native.stack = TRUE, NNS.native.mreg = TRUE, NNS.native.univariate = TRUE)
  on.exit(options(old), add = TRUE)
  expect_true(isTRUE(getOption("NNS.native.stack")))
})

Try the NNS package in your browser

Any scripts or data that you put into this service are public.

NNS documentation built on Aug. 4, 2026, 1:08 a.m.