fix: devtools check issues

Tomeriko96 · Aug 23, 2024 · 1821540 · 1821540
1 parent 24aae24
commit 1821540
Show file tree

Hide file tree

Showing 14 changed files with 22 additions and 54 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -3,8 +3,8 @@ Title: Translate Text
 Version: 1.5.2
 Authors@R: 
     person("Tomer", "Iwan", , "t.iwan@vu.nl", role = c("aut", "cre", "cph"))
-Description: The goal of the this package is to provide easy methods to 
-    translate pieces of text. Functions send requests to translation services online.
+Description: Provide easy methods to translate pieces of text.
+  Functions send requests to translation services online.
 License: MIT + file LICENSE
 URL: https://github.com/Tomeriko96/polyglotr/,
     https://tomeriko96.github.io/polyglotr/

diff --git a/R/create_translation_table.R b/R/create_translation_table.R
@@ -10,10 +10,12 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' words <- c("Hello", "Translate", "Table", "Script")
 #' languages <- c("es", "fr", "de", "nl")
 #' translations <- create_translation_table(words, languages)
 #' print(translations)
+#' }
 create_translation_table <- function(words, languages) {
   original_word <- NULL
   translations <- data.frame(original_word = words)

diff --git a/R/create_transliteration_table.R b/R/create_transliteration_table.R
@@ -10,10 +10,12 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' words <- c("Hello world", "Goodbye", "Thank you", "Please")
 #' languages <- c("ar", "he", "el", "ru", "fa")
 #' transliterations <- create_transliteration_table(words, languages)
 #' print(transliterations)
+#' }
 create_transliteration_table <- function(words, languages) {
   original_word <- NULL
   transliterations <- data.frame(original_word = words)

diff --git a/R/google_is_valid_language_code.R b/R/google_is_valid_language_code.R
@@ -7,9 +7,11 @@
 #' @export
 #'
 #' @examples
+#' \dontrun{
 #' google_is_valid_language_code("en") # TRUE
 #' google_is_valid_language_code("fr") # TRUE
 #' google_is_valid_language_code("xx") # FALSE
+#' }
 google_is_valid_language_code <- function(language_code) {
   if (language_code == "auto") {
     return(TRUE)

diff --git a/R/google_translate_long_text.R b/R/google_translate_long_text.R
@@ -12,7 +12,7 @@
 #' @export
 #'
 #' @examples
-#' \donttest{
+#' \dontrun{
 #' long_text <- paste(rep("This is a long text to translate.", 100), collapse = " ")
 #' google_translate_long_text(
 #' long_text, target_language = "de",

diff --git a/man/create_translation_table.Rd b/man/create_translation_table.Rd
diff --git a/man/create_transliteration_table.Rd b/man/create_transliteration_table.Rd
diff --git a/man/google_is_valid_language_code.Rd b/man/google_is_valid_language_code.Rd
diff --git a/man/google_translate_long_text.Rd b/man/google_translate_long_text.Rd
diff --git a/tests/testthat/test-google_translate.R b/tests/testthat/test-google_translate.R
diff --git a/tests/testthat/test-language_detect.R b/tests/testthat/test-language_detect.R
diff --git a/vignettes/Linguee.Rmd b/vignettes/Linguee.Rmd
@@ -10,7 +10,8 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  eval = FALSE
 )
 ```
 

diff --git a/vignettes/Movie_Reviews.Rmd b/vignettes/Movie_Reviews.Rmd
@@ -10,7 +10,8 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  eval = FALSE
 )
 ```
 

diff --git a/vignettes/polyglotr.Rmd b/vignettes/polyglotr.Rmd
@@ -10,7 +10,8 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
-  comment = "#>"
+  comment = "#>",
+  eval = FALSE
 )
 ```