tests/testthat.R

In dmpe/rbitly: R Wrapper for the 'Bit.ly' and 'Is.gd'/'v.gd' URL Shortening Services

library(testthat)
library(urlshorteneR)
# bitly_token <- bitly_auth(key = "be03aead58f23bc1aee6e1d7b7a1d99d62f0ede8", secret = "f9c6a3b18968e991e35f466e90c7d883cc176073")
# saveRDS(bitly_token, file = "tests/bitly_local_token.rds")
#
# if (interactive()) {
#   setwd("~/Documents/R-package-urlshortener")
#   bitly_token <- readRDS("tests/bitly_local_token.rds")
# } else {
#   setwd("~/main/")
#   bitly_token <- readRDS("tests/bitly_local_token.rds")
# }
#
# test_check("urlshorteneR")