#'Get supported languages
#'
#'Get all current available languages on the languagelayer API.
#'
#'Returns a data.frame with the available languages.
#'@param api_key Your API key.
#'@return Returns a data.frame with language_code and language_name.
#'@export
#'@note Before running a function of this package for the first time, you need to set your API key using the \code{\link{setApiKey}} function.
#'@examples
#'get_supported_lang(api_key = "yourapikey")
get_supported_lang <- function(api_key= NULL){
. <- NULL
default <- data.frame(language_code = vector("character"),
language_name = vector("character"),
stringsAsFactors = FALSE)
if(is.null(api_key)){
warning("You need to enter you API key first. Please use the setApiKey function.")
identity <- default
} else {
url <- GET(paste0("http://apilayer.net/api/languages", "?access_key=", api_key))
if (url$status_code != 200){
warning("URL returned status code: ", url$status_code)
identity <- default
} else {
content <- rjson::fromJSON(rawToChar(url$content))
if(content$success == FALSE){
content <- content$error
warning("API error, code: ", content$code, " ", content$type, " ", content$info)
identity <- default
} else {
content <- content$language
if(length(content) == 0) {
warning("No Content")
identity <- default
} else {
identity <- lapply(content, function(obj){
data.frame(language_code = obj$language_code %||% NA,
language_name = obj$language_name %||% NA,
stringsAsFactors = FALSE)
}) %>% do.call(rbind, .)
}
}
}
}
return(identity)
}
#' Deprecated version of get_supported_lang
#'
#' This function has been replaced by \code{get_supported_lang}. Will be removed
#' in the next version of the package.
#'
#' @param ... passes args to get_lang. Here for backward compatibility
#'
#' @export
getSupportedLanguage <- function(...){
.Deprecated("get_supported_lang")
get_supported_lang(...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.