diff --git a/NEWS.md b/NEWS.md deleted file mode 100644 index 1285097..0000000 --- a/NEWS.md +++ /dev/null @@ -1,11 +0,0 @@ -# polyglotr (development version) - -# polyglotr 1.0.2 - -# polyglotr 1.0.1 - -# polyglotr 1.0.0 - -# polyglotr 0.0.1.9000 - -* Added a `NEWS.md` file to track changes to the package. diff --git a/R/google_translate.R b/R/google_translate.R index a373b95..624d0af 100644 --- a/R/google_translate.R +++ b/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) } + diff --git a/R/google_translate_file.R b/R/google_translate_file.R new file mode 100644 index 0000000..0b450df --- /dev/null +++ b/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) +} diff --git a/R/mymemory_translate.R b/R/mymemory_translate.R index 0e436dd..0a2e321 100644 --- a/R/mymemory_translate.R +++ b/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") { diff --git a/build_package.R b/build_package.R deleted file mode 100644 index 7fe82a3..0000000 --- a/build_package.R +++ /dev/null @@ -1,40 +0,0 @@ -options(repos = c(PkgMgr="https://packagemanager.rstudio.com/all/__linux__/focal/latest")) -## Set project name -package_name <- basename(rstudioapi::getActiveProject()) -## =============================================== ============================== -## Install and load the packages -build_packages <- c("devtools", - "usethis", - "renv", - "qpdf") - - -## install the packages that are not installed yet -lapply(build_packages[which(!build_packages %in% installed.packages())], - install.packages) - - - -## load the packages -invisible(lapply(build_packages, - library, - character.only = TRUE)) - - -## =============================================== ============================== -## Build the package - - -## Check if the package is correct and can be built. -devtools::document() -devtools::check(manual = T) -devtools::build_manual(path = "~/Downloads/") - -## Increment the version number and check in that change in Git -usethis::use_version() - -## Build the package, and release it to the correct folder -devtools::build(path = "~/Downloads/") - -## Make use of the development version again -usethis::use_dev_version() diff --git a/cran-comments_translated.md b/cran-comments_translated.md new file mode 100644 index 0000000..4144f0f --- /dev/null +++ b/cran-comments_translated.md @@ -0,0 +1,5 @@ + + +0 errores | 0 advertencias | 1 nota + +* Esta es una nueva versiĆ³n. diff --git a/man/google_translate.Rd b/man/google_translate.Rd index 663049a..b59eff4 100644 --- a/man/google_translate.Rd +++ b/man/google_translate.Rd @@ -23,7 +23,7 @@ Translated text. Translate text using google translate } \examples{ -\dontrun{ +\donttest{ google_translate("I love languages", target_language = "es") } } diff --git a/man/mymemory_translate.Rd b/man/mymemory_translate.Rd index 6fa3817..74d4181 100644 --- a/man/mymemory_translate.Rd +++ b/man/mymemory_translate.Rd @@ -20,7 +20,7 @@ Translated text. Translate text using mymemory translate } \examples{ -\dontrun{ +\donttest{ mymemory_translate("Hello World", target_language = "es", source_language = "en") } }