DataQualityDashboard

Running ‘testthat.R’ [326s/432s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(DataQualityDashboard)
  Loading required package: DatabaseConnector
  > 
  > test_check("DataQualityDashboard")
  attempting to download GiBleed
  trying URL 'https://raw.githubusercontent.com/OHDSI/EunomiaDatasets/main/datasets/GiBleed/GiBleed_5.5.zip'
  Content type 'application/zip' length 7414767 bytes (7.1 MB)
  ==================================================
  downloaded 7.1 MB
  
  attempting to extract and load: /home/hornik/tmp/scratch/RtmpHrW1NM/GiBleed_5.5.zip to: /home/hornik/tmp/scratch/RtmpHrW1NM/GiBleed_5.5.sqlite
  Connecting using SQLite driver
  Executing SQL took 0.0252 secs
  Connecting using SQLite driver
  Currently in a tryCatch or withCallingHandlers block, so unable to add global calling handlers. ParallelLogger will not capture R messages, errors, and warnings, only explicit calls to ParallelLogger. (This message will not be sh
...[truncated]...
rReport(dbms, err$message, sqlStatement, errorReportFile)`: Error executing SQL:
  table main.cdm_source has 12 columns but 10 values were supplied
  An error report has been created at  /home/hornik/tmp/R.check/r-release-gcc/Work/PKGS/DataQualityDashboard.Rcheck/tests/testthat/errorReportSql.txt
  Backtrace:
      ▆
   1. └─DatabaseConnector::renderTranslateExecuteSql(...) at test-executeDqChecks.R:657:3
   2.   └─DatabaseConnector::executeSql(...)
   3.     └─base::tryCatch(...)
   4.       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   5.         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   6.           └─value[[3L]](cond)
   7.             └─DatabaseConnector:::.createErrorReport(dbms, err$message, sqlStatement, errorReportFile)
   8.               └─rlang::abort(...)
  
  [ FAIL 6 | WARN 0 | SKIP 6 | PASS 93 ]
  Error:
  ! Test failures.
  Warning message:
  call dbDisconnect() when finished working with a connection 
  Execution halted