test_that("Validate GetPrivacySettings using legacy credentials", {
  #Correct [masked] credentials
  SCAuth(Sys.getenv("USER", ""), Sys.getenv("SECRET", ""))
  aa <- GetPrivacySettings(c("zwitchdev", "zwitchjulia"))
  #Validate returned value is a data.frame
  expect_is(aa, "data.frame")
  bb <- GetPrivacySettings("zwitchdev")
  #Validate returned value is a data.frame
  expect_is(bb, "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.