diff --git a/R/GetCovariates.R b/R/GetCovariates.R index 908e4f11..19b98e23 100644 --- a/R/GetCovariates.R +++ b/R/GetCovariates.R @@ -186,7 +186,7 @@ getDbCovariateData <- function(connectionDetails = NULL, Andromeda::appendToTable(covariateData$covariateRef, tempCovariateData$covariateRef) Andromeda::appendToTable(covariateData$analysisRef, tempCovariateData$analysisRef) for (name in names(attr(tempCovariateData, "metaData"))) { - if (is.null(attr(covariateData, "metaData")[name])) { + if (is.null(attr(covariateData, "metaData")[[name]])) { attr(covariateData, "metaData")[[name]] <- attr(tempCovariateData, "metaData")[[name]] } else { attr(covariateData, "metaData")[[name]] <- list(