tests/testthat/test-getbookmarks.R

test_that("Validate GetBookmarks using legacy credentials", {
  
  skip_on_cran()
  
  #Correct [masked] credentials
  SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))
  
  url <- GetBookmarks()
  
  #Validate returned value is a data.frame
  expect_is(url, "data.frame")
  
})
randyzwitch/RSiteCatalyst documentation built on May 11, 2020, 3:05 p.m.