Running 'testthat.R' [169s]
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'
  Content type 'application/zip' length 6754786 bytes (6.4 MB)
  ==================================================
  downloaded 6.4 MB
  
  Creating CDM database D:\temp\Rtmp8U99Wj/GiBleed_5.3.zip
  Progress: getting descendant concepts of ingredient (1125315) used in database
  Progress: getting descendant concepts of ingredient
  Progress: adding drug strength info
  Progress: limiting to concepts in the db
  Progress: adding concept names
  Overall time taken: 0 minutes and 1 seconds
  Time taken: 0 minutes and 1 seconds
  Progress: getting drug strength for ingredient
  Time taken: 0 minutes and 0 seconds
  Progress: getting drug records for ingredient
  Time taken: 0 minutes and 0 seconds
  Progress: get concepts used
  Time taken: 0 minutes and 0 seconds
  Progress: sampling drug records
  population after earliestStartDate smaller than sample, ignoring date for sampling
  Time taken: 0 minutes and 0 seconds
  Progress: check drugsMissing
  Time taken: 0 minutes and 3 seconds
  Progress: check ExposureDuration
  Time taken: 0 minutes and 0 seconds
  Progress: check drugQuantity
  Time taken: 0 minutes and 0 seconds
  Finished
  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
  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
  population after earliestStartDate smaller than sample, ignoring date for sampling
  population after earliestStartDate smaller than sample, ignoring date for sampling
  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)`
  Time taken: 0 minutes and 0 seconds
  testMessage
  [ FAIL 1 | WARN 20 | SKIP 1 | PASS 301 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • Sys.getenv("TESTDB_USER") == "" is TRUE (1): 'test-SyntheaSqlServer.R:5:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-GetDrugRecords.R:75:3'): getDrugRecords invalid inputs ───────
  `getDrugRecords(cdm = cdm, ingredient = NULL, includedConceptsTable = "ingredient_concepts")` did not throw the expected error.
  
  [ FAIL 1 | WARN 20 | SKIP 1 | PASS 301 ]
  Error: Test failures
  In addition: There were 32 warnings (use warnings() to see them)
  Execution halted
  There were 24 warnings (use warnings() to see them)