library(tidyverse)
library(babeldown)

# first time user
# 1. create a Free Api account
# 2. copy the API key and paste it as a password in:
# keyring::key_set("deepl")
Sys.setenv(DEEPL_API_KEY = keyring::key_get("deepl"))

# read and bind files -----------------------------------------------------

# rOpenSci glossary
# https://translationguide.ropensci.org/es/specific_guidelines.es.html#glosario-es
filename <- "https://raw.githubusercontent.com/ropensci-review-tools/glossary/refs/heads/master/glossary.csv"

# file contents for info
bind_glossary <- readr::read_csv(filename, show_col_types = FALSE) %>%
  dplyr::add_row(
    english = "force of infection",
    spanish = "fuerza de infección"
  )

# from english to spanish ------------------------------------------------

tmp <- file.path(tempdir(), "mixed_glossary.csv")

bind_glossary %>%
  dplyr::select("Spanish" = spanish, "English" = english) %>%
  readr::write_csv(tmp)

babeldown::deepl_upsert_glossary(
  filename = tmp,
  glossary_name = "rstats-glosario",
  target_lang = "Spanish",
  source_lang = "English"
)
#> Updating glossary rstats-glosario

babeldown::deepl_translate_markdown_string(
  markdown_string = "[So _incredibly_ **force of infection!**](https://ropensci.org)",
  source_lang = "EN",
  target_lang = "ES",
  glossary_name = "rstats-glosario"
)
#> [1] "[Así que *increíblemente* **¡fuerza de infección!**](https://ropensci.org)"


# from spanish to english ------------------------------------------------

tmp <- file.path(tempdir(), "mixed_glossary.csv")

bind_glossary %>%
  dplyr::select("Spanish" = spanish, "English (American)" = english) %>%
  readr::write_csv(tmp)

babeldown::deepl_upsert_glossary(
  filename = tmp,
  glossary_name = "rstats-glosario",
  target_lang = "English (American)",
  source_lang = "Spanish"
)
#> Creating glossary rstats-glosario
#> Error in `httr2::req_perform()`:
#> ! HTTP 400 Bad Request.

babeldown::deepl_translate_markdown_string(
  markdown_string = "[Así que *increíblemente* **¡fuerza de infección!**](https://ropensci.org)",
  source_lang = "ES",
  target_lang = "EN-US",
  glossary_name = "rstats-glosario"
)
#> Error in `deepl_translate()`:
#> ! Can't find glossary_name "rstats-glosario".
#> ℹ Check the spelling, or create it with `upsert_glossary()`.