tests/testthat/test-r-process.R

context("r_process")

test_that("create and run r_process", {
  options <- r_process_options(func = function() 1 + 1)
  x <- r_process$new(options)
  x$wait()
  expect_equal(x$get_result(), 2)
})
r-pkgs/callr documentation built on July 13, 2018, 10:32 p.m.