Improve tests

taxonomicallyinformedannotation · Jul 3, 2024 · 19391bb · 19391bb
1 parent b93609e
commit 19391bb
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 14 deletions.
diff --git a/R/install_latest_version.R b/R/install_latest_version.R
@@ -2,12 +2,14 @@
 #'
 #' @description This function installs the latest version
 #'
+#' @param test Flag for test
+#'
 #' @return NULL
 #'
 #' @export
 #'
 #' @examples NULL
-install_latest_version <- function() {
+install_latest_version <- function(test = FALSE) {
   options(repos = c(CRAN = "https://cloud.r-project.org"))
   if (Sys.info()[["sysname"]] == "Windows") {
     message("You should install RTools if not already done")
@@ -55,17 +57,19 @@ install_latest_version <- function() {
         ask = FALSE
       )
     },
-    error = function(err) {
-      if (Sys.getenv("RSTUDIO") == 1) {
-        if (!requireNamespace("rstudioapi", quietly = TRUE)) {
-          install.packages("rstudioapi")
-        }
-        rstudioapi::restartSession()
-      } else {
-        if (!requireNamespace("startup", quietly = TRUE)) {
-          install.packages("startup")
+    error = function(e) {
+      if (test == FALSE) {
+        if (Sys.getenv("RSTUDIO") == 1) {
+          if (!requireNamespace("rstudioapi", quietly = TRUE)) {
+            install.packages("rstudioapi")
+          }
+          rstudioapi::restartSession()
+        } else {
+          if (!requireNamespace("startup", quietly = TRUE)) {
+            install.packages("startup")
+          }
+          startup::restart()
         }
-        startup::restart()
       }
     }
   )

diff --git a/codemeta.json b/codemeta.json
@@ -578,7 +578,7 @@
     "SystemRequirements": null
   },
   "keywords": ["metaboliteannotation", "chemotaxonomy", "scoringsystem", "naturalproducts", "computationalmetabolomics", "taxonomicdistance", "specializedmetabolome"],
-  "fileSize": "4377.05KB",
+  "fileSize": "4377.249KB",
   "citation": [
     {
       "@type": "ScholarlyArticle",

diff --git a/man/install_latest_version.Rd b/man/install_latest_version.Rd
diff --git a/tests/testthat/test-functions.R b/tests/testthat/test-functions.R
@@ -2,7 +2,7 @@ library(testthat)
 ## need to do all in one because of outputs needed in the same temp dir
 ## use fixtures instead in the future
 test_that("Test functions", {
-  install_latest_version()
+  install_latest_version(test = TRUE)
   setwd(fs::path_home(".tima"))
   ## Prepare parameters
   paths <- parse_yaml_paths()