tests/testthat/testAPI.R

context("API")

test_that("console prov dir", {
      console_dir <- tempdir()
      actual.path <- .ddg.set.path (console_dir, NULL, FALSE)
      expect_true(startsWith (actual.path, 
          paste (normalizePath(console_dir, winslash = "/"), "prov_console", sep="/")))
      unlink (actual.path, recursive=TRUE)
    })

Try the rdtLite package in your browser

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

rdtLite documentation built on Aug. 8, 2022, 5:09 p.m.