tests/testthat/helpers.R

In Pandora: Retrieve Data using the API of the 'Pandora' Data Platform

passOnErrorMsg <- function(expr) {
  res <- try({
    expr
  })
  
  if (!inherits(res, "try-error")) return(res) else return(res[[1]])
}

foundResource <- function(testLoaded) {
  !(inherits(testLoaded, "character") && grepl(pattern = "No resource found", testLoaded))
}