Nothing
#' @title Show browser details
#'
#' @description Get details for a specific browsers ID.
#'
#' @param browser Browser ID. (integer)
#' @param api_key An active GTmetrix API key. (string)
#'
#' @return A data.frame object that contains available browsers and their
#' meta data.
#' @examples
#' \dontrun{output_table <- get_browser_details(
#' browser_id = 3, api_key = "API_KEY"
#' )}
#' @export
get_browser_details <- function(browser, api_key) {
check_input(input = browser, input_type = "character",
variable_name = "browser",
is_missing = missing(browser))
check_input(input = api_key, input_type = "character",
variable_name = "api_key",
is_missing = missing(api_key))
res <- httr::GET(
url = paste0("https://gtmetrix.com/api/2.0/browsers/", browser),
httr::authenticate(api_key, ""),
httr::content_type("application/vnd.api+json")
)
# Throw exception if there's an error
if (httr::status_code(res) != 200) {
error <- jsonlite::fromJSON(rawToChar(res$content))$error
stop(paste0(error$title, ifelse(
!is.null(error$detail),
paste0(" - ", error$detail), ""), " (", error$code, ")"))
}
data_raw <- jsonlite::fromJSON(rawToChar(res$content))
# has to stay stringsAsFactors = FALSE for R < v4.0
data <- as.data.frame(data_raw$data, stringsAsFactors = FALSE)
rm(data_raw)
return(data)
}
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.