tests/testthat/test-main_functionality.R

context("Main functionality")

if(!identical(Sys.getenv("GESIS_USER"), "")) {
    test_that("login works", {
      s <- login()
      expect_equal(class(s), "session")
    })
}

Try the gesis package in your browser

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

gesis documentation built on April 25, 2019, 1:06 a.m.