tests/testthat/test-init.R

library(testthat) 
library(operator.tools)
context("Initialization Tests")

test_that( 'init', {
  expect_true( exists('.Options') )
  expect_true( "operators" %in% names(options()) )
  expect_true(  length(operators()) > 0 %in% names( .Options ) )
})

Try the operator.tools package in your browser

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

operator.tools documentation built on May 1, 2019, 8 p.m.