if (getRversion() >= "2.15.1") utils::globalVariables(".")
#' Recovers a json from a URL using HTTP.
#'
#' @param full_link URL admitting GET HTTP requests.
#'
#' @return the json.
#'
#' @examples
#'
#' @export
.get_json <- function(response){
r <- httr::content(response, as = "text")
r_json <- jsonlite::fromJSON(r, flatten = T)
return(r_json)
}
#' Wraps an access to the Instagram API given a relative path and query arguments.
#'
#' @param path URL relative to the API base URL
#' @param query Query parameters
#'
#' @export
.instagram_api <- function(path=NULL, query=NULL, token=NULL){
ua <- httr::user_agent(.RMARGATSNI_LINK)
api_url <- httr::modify_url(.API_LINK, path = path, query = query, token=token)
resp <- httr::GET(api_url, ua, httr::accept_json())
httr::stop_for_status(resp)
if (httr::http_type(resp) != "application/json") {
stop(.ERRO_RETORNO_JSON, call. = FALSE)
}
.get_json(resp)
}
.remove_lists_and_nulls <- function(x){
arr_null <- which(sapply(x, is.null))
if (length(arr_null)){
x <- x[-arr_null]
}
arr_lists <- which(sapply(x, is.list))
if (length(arr_lists)){
x <- x[-arr_lists]
}
tibble::as.tibble(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.