tests/testthat/test-dssSetOption.R

test_that("dssSetOption and dssGetOption work", {
  x <- dssSetOption(list(stringsAsFactors = FALSE), datasources = opals)
  expect_true(x[[1]])
  expect_false(dssGetOption('stringsAsFactors', datasources = opals)[[1]][[1]])

})
IulianD/dsSwissKnifeClient documentation built on June 23, 2020, 4:38 p.m.