R Under development (unstable) (2024-01-29 r85841 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 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\RtmpW8k5XT/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
Time taken: 0 minutes and 0 seconds
Progress: check drugsMissing
Time taken: 0 minutes and 2 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
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
Joining with `by = join_by(ingredient_concept_id)`
Joining with `by = join_by(ingredient_concept_id)`
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
population after earliestStartDate smaller than sample
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 0 | WARN 14 | SKIP 1 | PASS 284 ]

══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Sys.getenv("TESTDB_USER") == "" is TRUE (1): 'test-SyntheaSqlServer.R:5:3'

[ FAIL 0 | WARN 14 | SKIP 1 | PASS 284 ]
There were 12 warnings (use warnings() to see them)
> 
> proc.time()
   user  system elapsed 
 124.54    7.67  124.40