test: file translations

R/google_translate.R

@@ -11,7 +11,7 @@
 #' @export
 #'
 #' @examples
-#'\dontrun{
+#'\donttest{
 #'google_translate("I love languages", target_language = "es")
 #'}
 google_translate <- function(text, target_language = "en", source_language = "auto") {
@@ -28,6 +28,10 @@ google_translate <- function(text, target_language = "en", source_language = "au
     rvest::html_nodes("div.result-container") %>%
     rvest::html_text()
 
+  translation <- urltools::url_decode(translation)
+  translation <- gsub("\n", "", translation)
+
   return(translation)
 
 }
+

R/google_translate_file.R

@@ -0,0 +1,28 @@
+translate_file <- function(file_path, target_language = "en", source_language = "auto", overwrite = FALSE) {
+
+  lines <- readLines(file_path, warn = FALSE, encoding = "UTF-8")
+
+  translate_line <- function(line) {
+    if (startsWith(line, "#'")) {
+      return(paste0("#' ", google_translate(substr(line, 3, nchar(line)), target_language = target_language, source_language = source_language)))
+    } else {
+      return(google_translate(line, target_language = target_language, source_language = source_language))
+    }
+  }
+
+  translated_lines <- sapply(lines, translate_line)
+
+  combined_lines <- mapply(function(original, translated) {
+    return(paste0(substr(original, 1, regexpr("[^ ]", original) - 1), translated))
+  }, lines, translated_lines, SIMPLIFY = FALSE)
+
+  if (overwrite) {
+    writeLines(combined_lines, con = file_path, sep = "\n", useBytes = FALSE)
+  } else {
+    file_extension <- tools::file_ext(file_path)
+    new_file_path <- paste0(tools::file_path_sans_ext(file_path), "_translated.", file_extension)
+    writeLines(as.character(combined_lines), con = new_file_path, sep = "\n", useBytes = FALSE)
+  }
+
+  return(NULL)
+}

R/mymemory_translate.R

@@ -8,7 +8,7 @@
 #' @export
 #'
 #' @examples
-#'\dontrun{
+#'\donttest{
 #'mymemory_translate("Hello World", target_language = "es", source_language = "en")
 #'}
 mymemory_translate <- function(text, target_language = "en", source_language = "auto") {

cran-comments_translated.md

@@ -0,0 +1,5 @@
+
+
+0 errores | 0 advertencias | 1 nota
+
+* Esta es una nueva versión.