tests/testthat/test-importList.R

test_that("importList example works", {

  lst <- list(a = 1)
  expect_false(exists("a"))
  importList(lst, ask=FALSE)
  expect_true(exists("a"))
  expect_equal(a, 1)
  rm(a)

})

Try the lsr package in your browser

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

lsr documentation built on Dec. 11, 2021, 9:10 a.m.