Nothing
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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.