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)
  rm(x)
  gc()
})
r-pkgs/callr documentation built on Aug. 27, 2018, 5:31 a.m.