exectuteDqChecks fails if cdm_source table has more than one row and outputFile is left as default about dataqualitydashboard HOT 7 OPEN

connectionDetails <- Eunomia::getEunomiaConnectionDetails()

# demonstrate that this works as is
result <- DataQualityDashboard::executeDqChecks(
  connectionDetails = connectionDetails,
  cdmDatabaseSchema = "main",
  resultsDatabaseSchema = "main",
  cdmSourceName = "GiBleed_Eunomia",
  checkLevels = "TABLE",
  checkNames = c("cdmTable", "cdmField"),
  outputFolder = "~/Desktop/example_dqd_output"
)
#> Warning in DataQualityDashboard::executeDqChecks(connectionDetails =
#> connectionDetails, : Missing check names to calculate the 'Not Applicable'
#> status: measureValueCompleteness
#> 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 shown again this R session)
#> 
#> Rows: 22 Columns: 8
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (8): checkLevel, checkName, checkDescription, kahnContext, kahnCategory,...
#> 
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
#> CDM Tables skipped: CONCEPT, VOCABULARY, CONCEPT_ANCESTOR, CONCEPT_RELATIONSHIP, CONCEPT_CLASS, CONCEPT_SYNONYM, RELATIONSHIP, DOMAIN
#> Connecting using SQLite driver
#> Processing check description: cdmTable
#> Writing results to file: ~/Desktop/example_dqd_output/synthea-20230728161501.json
#> Execution Complete
#> Connecting using SQLite driver
#> Writing results to table main.dqdashboard_results
#>   |                                                                              |                                                                      |   0%  |                                                                              |===================================                                   |  50%  |                                                                              |======================================================================| 100%
#> Executing SQL took 0.00429 secs
#> Warning: Column 'warning' is of type 'logical', but this is not supported by
#> many DBMSs. Converting to numeric (1 = TRUE, 0 = FALSE)
#> Warning: Column 'error' is of type 'logical', but this is not supported by many
#> DBMSs. Converting to numeric (1 = TRUE, 0 = FALSE)
#> Warning: Column 'threshold_value' is of type 'logical', but this is not
#> supported by many DBMSs. Converting to numeric (1 = TRUE, 0 = FALSE)
#> Warning: Column 'notes_value' is of type 'logical', but this is not supported
#> by many DBMSs. Converting to numeric (1 = TRUE, 0 = FALSE)
#> Inserting data took 0.0174 secs
#> Finished writing table

conn <- DatabaseConnector::connect(connectionDetails)
#> Connecting using SQLite driver
library(DatabaseConnector)
getTableNames(conn)
#>  [1] "care_site"                "cdm_source"              
#>  [3] "cohort"                   "cohort_attribute"        
#>  [5] "concept"                  "concept_ancestor"        
#>  [7] "concept_class"            "concept_relationship"    
#>  [9] "concept_synonym"          "condition_era"           
#> [11] "condition_occurrence"     "cost"                    
#> [13] "death"                    "device_exposure"         
#> [15] "domain"                   "dose_era"                
#> [17] "drug_era"                 "drug_exposure"           
#> [19] "drug_strength"            "fact_relationship"       
#> [21] "location"                 "measurement"             
#> [23] "metadata"                 "note"                    
#> [25] "note_nlp"                 "observation"             
#> [27] "observation_period"       "payer_plan_period"       
#> [29] "person"                   "procedure_occurrence"    
#> [31] "provider"                 "relationship"            
#> [33] "source_to_concept_map"    "specimen"                
#> [35] "visit_detail"             "visit_occurrence"        
#> [37] "vocabulary"               "dqdashboard_results"     
#> [39] "main.dqdashboard_results"

tibble::tibble(querySql(conn, "select * from main.'main.dqdashboard_results'"))
#> # A tibble: 23 × 26
#>    NUM_VIOLATED_ROWS PCT_VIOLATED_ROWS NUM_DENOMINATOR_ROWS EXECUTION_TIME
#>                <dbl>             <dbl>                <dbl> <chr>         
#>  1                 0                 0                    1 0.004840 secs 
#>  2                 0                 0                    1 0.004684 secs 
#>  3                 0                 0                    1 0.005634 secs 
#>  4                 0                 0                    1 0.005763 secs 
#>  5                 0                 0                    1 0.005449 secs 
#>  6                 0                 0                    1 0.003824 secs 
#>  7                 0                 0                    1 0.002964 secs 
#>  8                 0                 0                    1 0.004513 secs 
#>  9                 0                 0                    1 0.003135 secs 
#> 10                 0                 0                    1 0.003447 secs 
#> # ℹ 13 more rows
#> # ℹ 22 more variables: QUERY_TEXT <chr>, CHECK_NAME <chr>, CHECK_LEVEL <chr>,
#> #   CHECK_DESCRIPTION <chr>, CDM_TABLE_NAME <chr>, CDM_FIELD_NAME <chr>,
#> #   CONCEPT_ID <chr>, UNIT_CONCEPT_ID <chr>, SQL_FILE <chr>, CATEGORY <chr>,
#> #   SUBCATEGORY <chr>, CONTEXT <chr>, WARNING <dbl>, ERROR <dbl>,
#> #   CHECKID <chr>, FAILED <dbl>, PASSED <dbl>, IS_ERROR <dbl>,
#> #   NOT_APPLICABLE <dbl>, NOT_APPLICABLE_REASON <chr>, THRESHOLD_VALUE <dbl>, …