tests/testthat/test-getdiscoverenabled.R

# test_that("Validate GetDiscoverEnabled using legacy credentials", {
#
#   skip_on_cran()
#
#   #Correct [masked] credentials
#   SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))
#
#   disc <- GetDiscoverEnabled("zwitchdev")
#
#   #Validate returned value is a data.frame
#   expect_is(disc, "data.frame")
#
# })

Try the RSiteCatalyst package in your browser

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

RSiteCatalyst documentation built on Nov. 6, 2019, 5:09 p.m.