Running 'testthat.R' [208s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(DrugExposureDiagnostics)
  > 
  > test_check("DrugExposureDiagnostics")
  trying URL 'https://example-data.ohdsi.dev/GiBleed.zip'
  trying URL 'https://example-data.ohdsi.dev/GiBleed.zip'
  Content type 'application/zip' length 6754786 bytes (6.4 MB)
  ==================================================
  downloaded 6.4 MB
  
  Creating CDM database D:\temp\RtmpkN01eG/GiBleed_5.3.zip
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  Joining with `by = join_by(ingredient_concept_id)`
  Time taken: 0 minutes and 0 seconds
  testMessage
  [ FAIL 1 | WARN 21 | SKIP 1 | PASS 289 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • Sys.getenv("TESTDB_USER") == "" is TRUE (1): 'test-SyntheaSqlServer.R:5:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-Eunomia.R:3:3'): execute all checks, default ingredient, verbose ──
  Error in `utils::download.file(url = glue::glue("https://example-data.ohdsi.dev/{datasetName}.zip"), 
      destfile = file.path(pathToData, zipName), mode = "wb", method = "auto", 
      quiet = FALSE, extra = list(progressfunction = function(downloaded, 
          total) {
          progress <- min(1, downloaded/total)
          cli::cli_progress_update(id = pb, set = progress)
      }))`: cannot open URL 'https://example-data.ohdsi.dev/GiBleed.zip'
  Backtrace:
      ▆
   1. └─DrugExposureDiagnostics::getEunomiaCdm() at test-Eunomia.R:3:2
   2.   ├─utils::capture.output(CDMConnector::downloadEunomiaData(pathToData = Sys.getenv("EUNOMIA_DATA_FOLDER")))
   3.   │ └─base::withVisible(...elt(i))
   4.   └─CDMConnector::downloadEunomiaData(pathToData = Sys.getenv("EUNOMIA_DATA_FOLDER"))
   5.     ├─withr::with_options(...)
   6.     │ └─base::force(code)
   7.     └─utils::download.file(...)
  
  [ FAIL 1 | WARN 21 | SKIP 1 | PASS 289 ]
  Error: Test failures
  In addition: There were 29 warnings (use warnings() to see them)
  Execution halted
  There were 22 warnings (use warnings() to see them)