change: tests

.Rbuildignore

@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^LICENSE\.md$
 ^.*\.Rproj$
 ^\.Rproj\.user$

R/google_translate.R

@@ -1,8 +1,11 @@
 #' Translate text using google translate
 #'
-#' @param text Text to translate.
-#' @param target_language Language to translate text to.
-#' @param source_language Language to translate text from
+#' @param text This is the text that you want to translate.
+#' @param target_language This is the language that you want to translate the text into.
+#' The default value for this argument is "en" for English.
+#' @param source_language This is the language of the text that you want to translate.
+#' The default value for this argument is "auto",
+#' which means that the function will try to automatically detect the language of the text.
 #'
 #' @return Translated text.
 #' @export

build_package.R

@@ -1,3 +1,4 @@
+options(repos = c(PkgMgr="https://packagemanager.rstudio.com/all/__linux__/focal/latest"))
 ## Set project name
 package_name <- basename(rstudioapi::getActiveProject())
 ## =============================================== ==============================
@@ -7,11 +8,13 @@ build_packages <- c("devtools",
                     "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,
@@ -25,14 +28,13 @@ invisible(lapply(build_packages,
 ## Check if the package is correct and can be built.
 devtools::document()
 devtools::check(manual = T)
-devtools::build_manual(path = ".")
-
+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/")
+devtools::build(path = "~/Downloads/")
 
 ## Make use of the development version again
 usethis::use_dev_version()

renv/.gitignore

@@ -0,0 +1,6 @@
+library/
+local/
+cellar/
+lock/
+python/
+staging/

tests/testthat/test-google_translate.R

@@ -1,5 +1,5 @@
 test_that("translation works", {
-  expect_equal(google_translate("hello world",
+  expect_equal(google_translate("hello",
                                 target_language = "es"),
-               "Hola Mundo")
+               "Hola")
 })

tests/testthat/test-mymemory_translate.R

@@ -1,6 +1,6 @@
 test_that("translation workds", {
-  expect_equal(mymemory_translate(text = "Hello World",
+  expect_equal(mymemory_translate(text = "Hello",
                                   target_language = "es",
                                   source_language = "en"),
-               "Hola Mundo")
+               "Hola")
 })