tests/testthat/test-getvirtualreportsuitesettings.R

test_that("Validate GetVirtualReportSuiteSettings using legacy credentials", {
  
  skip_on_cran()
  
  #Correct [masked] credentials
  SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))
  
  gvrss <- GetVirtualReportSuiteSettings("vrs_zwitch0_vrs1")
  gvrss2 <- GetVirtualReportSuiteSettings(c("vrs_zwitch0_zwitchdevvrs", "vrs_zwitch0_vrs1"))
  
  #Validate returned value is a data.frame
  expect_is(gvrss, "data.frame")
  expect_is(gvrss2, "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 July 22, 2017, 1:01 a.m.