feat: get pons dictionaries

NAMESPACE

@@ -12,6 +12,7 @@ export(linguee_external_sources)
 export(linguee_translation_examples)
 export(linguee_word_translation)
 export(mymemory_translate)
+export(pons_dictionaries)
 export(pons_translate)
 export(qcri_get_domains)
 export(qcri_get_language_pairs)

R/pons_dictionaries.R

@@ -0,0 +1,33 @@
+#' Get the list of available dictionaries from PONS API
+#'
+#' @param language The language of the output (ISO 639-1 - two-letter codes). Supported languages are de, el, en, es, fr, it, pl, pt, ru, sl, tr, zh.
+#' @return A list of available dictionaries in the specified language.
+#' @export
+#' @examples
+#' \dontrun{
+#' pons_dictionaries(language = "es")
+#' }
+pons_dictionaries <- function(language = "en") {
+  # Check if the language is supported
+  supported_languages <- c("de", "el", "en", "es", "fr", "it", "pl", "pt", "ru", "sl", "tr", "zh")
+  if (!(language %in% supported_languages)) {
+    stop("Unsupported language code. Please use one of the supported languages: ", paste(supported_languages, collapse = ", "))
+  }
+
+  # Construct the API URL with the language parameter
+  url <- paste0("https://api.pons.com/v1/dictionaries?language=", language)
+
+  # Make the GET request
+  response <- httr::GET(url)
+
+  # Check if the request was successful
+  if (httr::status_code(response) != 200) {
+    stop("Failed to retrieve dictionaries. Status code: ", httr::status_code(response))
+  }
+
+  # Parse the JSON response
+  dictionaries <- jsonlite::fromJSON(httr::content(response, "text"))
+
+  return(dictionaries)
+}
+

_pkgdown.yml

@@ -33,6 +33,7 @@ reference:
     desc: Methods using Pons Translation services
     contents:
       - pons_translate
+      - pons_dictionaries
 
   - title: QCRI Methods
     desc: Methods using QCRI services