Running 'testthat.R' [207s]
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\RtmpyyuIn3/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: get ingredient overview
  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 1 seconds
  Progress: check drugsMissing
  Time taken: 0 minutes and 3 seconds
  Progress: check ExposureDuration
  Time taken: 0 minutes and 0 seconds
  Progress: check drugTypes
  Time taken: 0 minutes and 0 seconds
  Progress: check drugRoutes
  Time taken: 0 minutes and 0 seconds
  Progress: check drugSourceConcepts
  Time taken: 0 minutes and 0 seconds
  Progress: check drugDaysSupply
  Time taken: 0 minutes and 0 seconds
  Progress: check drugVerbatimEndDate
  Time taken: 0 minutes and 1 seconds
  Progress: check drugDose
  Time taken: 0 minutes and 0 seconds
  Progress: check drugSig
  Time taken: 0 minutes and 0 seconds
  Progress: check drugQuantity
  Time taken: 0 minutes and 0 seconds
  Progress: create histograms
  Time taken: 0 minutes and 0 seconds
  Finished
  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)`
  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 9 | WARN 22 | SKIP 1 | PASS 284 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • Sys.getenv("TESTDB_USER") == "" is TRUE (1): 'test-SyntheaSqlServer.R:5:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-CheckDrugSig.R:20:3'): checkDrugSig overall ──────────────────
  result$sig (`actual`) not equal to c("sig1", "sig2", "sig3", "sig1", NA) (`expected`).
  
  `actual`:   NA     "sig1" "sig3" "sig1" "sig2"
  `expected`: "sig1" "sig2" "sig3" "sig1" NA    
  ── Failure ('test-CheckDrugSig.R:21:3'): checkDrugSig overall ──────────────────
  result$n_records (`actual`) not equal to c(1, 2, 1, 2, 1) (`expected`).
  
    `actual`: 1 2 1 1 2
  `expected`: 1 2 1 2 1
  ── Failure ('test-CheckDrugSig.R:30:3'): checkDrugSig byConcept ────────────────
  result$sig (`actual`) not equal to c("sig1", "sig2", "sig3", "sig1", NA, "sig1", "sig2") (`expected`).
  
  `actual`:   "sig1" "sig2" NA     "sig2" "sig1" "sig3" "sig1"
  `expected`: "sig1" "sig2" "sig3" "sig1" NA     "sig1" "sig2"
  ── Failure ('test-Eunomia.R:215:3'): obscuring results by minCellCount ─────────
  result_all$conceptSummary$n_records (`actual`) not equal to c(NA, 2158) (`expected`).
  
    `actual`: 2158   NA
  `expected`:   NA 2158
  ── Failure ('test-IngredientOverview.R:45:3'): getIngredientOverview ───────────
  result$strength (`actual`) not equal to c(...) (`expected`).
  
      actual      | expected       
  [1] "1.0 mg/mL" | "1.0 mg/mL" [1]
  [2] "10.0 mg"   | "10.0 mg"   [2]
  [3] "10.0 mg"   - "1.0 mg/mL" [3]
  [4] "1.0 mg/mL" | "1.0 mg/mL" [4]
  [5] "1.0 mg/mL" | "1.0 mg/mL" [5]
  [6] "1.0 mg/mL" - "10.0 mg"   [6]
  [7] "1.0 mg/mL" | "1.0 mg/mL" [7]
  [8] "1.0 mg/mL" | "1.0 mg/mL" [8]
  [9] "1.0 mg/mL" | "1.0 mg/mL" [9]
  ── Failure ('test-IngredientOverview.R:48:3'): getIngredientOverview ───────────
  result$n_records (`actual`) not equal to c(3, 1, 1, 2, 1, 1, 1, 1, 1) (`expected`).
  
    `actual`: 1 1 1 1 1 2 1 3 1
  `expected`: 3 1 1 2 1 1 1 1 1
  ── Failure ('test-IngredientOverview.R:49:3'): getIngredientOverview ───────────
  result$n_people (`actual`) not equal to c(2, 1, 1, 1, 1, 1, 1, 1, 1) (`expected`).
  
    `actual[1:4]`: 1 1 1 1
  `expected[1:4]`: 2 1 1 1
  
    `actual[5:9]`: 1 1 1 2 1
  `expected[5:9]`: 1 1 1 1 1
  ── Failure ('test-IngredientOverview.R:74:3'): getIngredientsPresence ──────────
  result$n_records (`actual`) not equal to c(4, 2, 1, 3, 1, 1) (`expected`).
  
    `actual`: 4 1 1 2 3 1
  `expected`: 4 2 1 3 1 1
  ── Failure ('test-IngredientOverview.R:75:3'): getIngredientsPresence ──────────
  result$n_people (`actual`) not equal to c(2, 1, 1, 2, 1, 1) (`expected`).
  
    `actual`: 2 1 1 1 2 1
  `expected`: 2 1 1 2 1 1
  
  [ FAIL 9 | WARN 22 | SKIP 1 | PASS 284 ]
  Error: Test failures
  In addition: There were 40 warnings (use warnings() to see them)
  Execution halted
  There were 12 warnings (use warnings() to see them)