tests/testthat/helpers.R

# Taken from https://cran.r-project.org/web/packages/httr/vignettes/secrets.html
skip_if_no_auth <- function() {
  if (identical(Sys.getenv("WOS_USERNAME"), "")) {
    skip("No authentication available")
  }
}

is_empty_df <- function(x) is.data.frame(x) && nrow(x) == 0

Try the wosr package in your browser

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

wosr documentation built on May 1, 2019, 10:18 p.m.