tests/testthat/test-dspl.r

context("Main function")

test_that("dspl", {
  # Loading datasets
  
  path <- base::system.file("dspl-tutorial", package="googlePublicData")
  
  suppressMessages(dat <- dspl(path))
  expect_output(print(dat), "<dspl")
  expect_output(print(summary(dat)))
  
})

Try the googlePublicData package in your browser

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

googlePublicData documentation built on May 2, 2019, 3:45 a.m.