feat: get supported languages google

DESCRIPTION

@@ -17,6 +17,7 @@ Imports:
     httr,
     magrittr,
     purrr,
+    RCurl,
     rlang,
     rvest,
     stringr,

NAMESPACE

@@ -2,6 +2,7 @@
 
 export("%>%")
 export(create_translation_table)
+export(google_get_supported_languages)
 export(google_translate)
 export(language_detect)
 export(linguee_external_sources)

R/google_get_supported_languages.R

@@ -0,0 +1,29 @@
+#' Get Supported Languages
+#'
+#' This function fetches the supported languages from the Google Cloud Translate documentation page.
+#'
+#' @return A data frame containing the supported languages and their corresponding ISO 639-1 codes.
+#' @export
+google_get_supported_languages <- function() {
+  # Define the URL of the webpage
+  url <- "https://cloud.google.com/translate/docs/languages"
+
+  # Check if the URL is available
+  if (!RCurl::url.exists(url)) {
+    stop("The URL is not available.")
+  }
+
+  # Read the HTML of the webpage
+  webpage <- rvest::read_html(url)
+
+  # Select the table from the webpage
+  table <- webpage %>% rvest::html_nodes('table')
+
+  # Convert the HTML table into a data frame
+  df <- table %>% rvest::html_table()
+
+  # Convert the first table in the list into a data frame
+  df_lang <- df[[1]] %>% tibble::as_tibble()
+
+  return(df_lang)
+}