stopf <- function(msg, ...) {
stop(sprintf(msg, ...), call. = FALSE)
}
abort_gh_rate_limit <- function(cnd) {
rlang::abort(
c("Exceeded GitHub API limit of 60 queries per hour.",
"i" = "Authentication will increase your limit.",
"i" = "Start an issue to show us there's a demand for a higher limit."),
parent = cnd
)
}
abort_gl_rate_limit <- function(cnd) {
rlang::abort(
"Exceeded GitLab API limit.",
parent = cnd
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.