nCovariatesContFiltered < nCovariatesCont is not TRUE

`actual`:   FALSE
`expected`: TRUE

# This file covers the code in CovariateData.R. View coverage for this file using
test_that("test CovariateData Class on Empty", {
# 1) error (non class), 2) covariate data, 3) aggregatedCovariate Data,
covData <- FeatureExtraction:::createEmptyCovariateData(cohortIds = 9999,
aggCovData <- FeatureExtraction:::createEmptyCovariateData(cohortIds = 9999,
tempCovData <- FeatureExtraction:::createEmptyCovariateData(cohortIds = 9999,
# check that objects are covariate Data class
# check that objects are aggregate covariate data class
# check that objects are temporal covariate data class
test_that("test saveCovariateData error cases", {
covariateData <- getDbCovariateData(connectionDetails = eunomiaConnectionDetails,
expect_error(saveCovariateData()) # empty call error
expect_error(saveCovariateData(covariateData)) # no file error
expect_error(saveCovariateData(errCovData, file = saveFileTest)) # non covariateData class error
"Disconnected Andromeda. This data object can no longer be used"
test_that("test summary call for covariateData class", {
test_that("test filtering of covariates based on minCharacterizationMean", {
cvData <- FeatureExtraction:::createEmptyCovariateData(cohortIds = 1, aggregated = FALSE, temporal = FALSE)
expect_warning(loadCovariateData(file = tempFileName, readOnly = TRUE))
cvData <- FeatureExtraction:::createEmptyCovariateData(cohortIds = c(1,2), aggregated = FALSE, temporal = FALSE)
aggregated = FALSE), "cohortId argument has been deprecated, please use cohortIds")
test_that("getDbCovariateData settings list - check metaData", {
looCovSet <- FeatureExtraction:::.createLooCovariateSettings(useLengthOfObs = TRUE)
covariateData <- getDbCovariateData(connection = eunomiaConnection,

"test summary call for covariateData class"
"test filtering of covariates based on minCharacterizationMean"
"cohortId argument has been deprecated, please use cohortIds"
"getDbCovariateData settings list - check metaData"