"test save load fucntionality for histograms"

test save load fucntionality for histograms

result <- printDurationAndMessage(message = "testMessage", start = startTime)
# Check if a zip file has been created, extract it and check csv
checkResultOnDisk <- function(resultList, outFolder, filename) {
outputZipFile <- list.files(outFolder, full.names = TRUE, pattern = paste0(filename, ".zip"))
zip::unzip(zipfile = outputZipFile,  exdir = outputCsvFolder)
outputCsvFiles <- list.files(unzippedFolder, pattern = "*.csv")
result <- writeResultToDisk(resultList = resultList,
# no filename given, default to 'dbId'.zip
checkIsIngredient(cdm = cdm, conceptId = 1125315, messageStore = messageStore)
checkIsIngredient(cdm = cdm, conceptId = 123456789, messageStore = messageStore)
expect_equal(messageStore$getMessages()[2], "- ingredient concept (123456789) could not be found in concept table")
checkIsIngredient(cdm = cdm, conceptId = 19133768, messageStore = messageStore)
expect_equal(messageStore$getMessages()[2], "- ingredient concept (19133768) does not have concept_class_id of Ingredient")

"- ingredient concept (123456789) could not be found in concept table"
"- ingredient concept (19133768) does not have concept_class_id of Ingredient"