Improve tests

R/install_latest_version.R

@@ -48,6 +48,7 @@ install_latest_version <- function(test = FALSE) {
  no = "main"
  )
  message("ref is ", ref)
+ pak::pak_cleanup(force = TRUE)
  pak::pak_update()
  # Fails sometimes
  tryCatch(
@@ -112,7 +113,7 @@ install_latest_version <- function(test = FALSE) {
  url = paste0(
  "https://raw.githubusercontent.com/taxonomicallyinformedannotation/tima-r/",
  ref,
- "/_targets.yaml"
+ "/inst/pipelines/_targets.yaml"
  ),
  export = file.path(cache, "_targets.yaml")
  )

codemeta.json

@@ -578,7 +578,7 @@
  "SystemRequirements": null
  },
  "keywords": ["metaboliteannotation", "chemotaxonomy", "scoringsystem", "naturalproducts", "computationalmetabolomics", "taxonomicdistance", "specializedmetabolome"],
- "fileSize": "4377.249KB",
+ "fileSize": "4377.311KB",
  "citation": [
  {
  "@type": "ScholarlyArticle",

tests/testthat/test-functions.R

@@ -1,7 +1,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", {
+test_that(desc = "Test functions", code = {
  install_latest_version(test = TRUE)
  setwd(fs::path_home(".tima"))
  ## Prepare parameters