diff --git a/R/mockOmopSketch.R b/R/mockOmopSketch.R index 3cf8198..7c122f9 100644 --- a/R/mockOmopSketch.R +++ b/R/mockOmopSketch.R @@ -69,10 +69,10 @@ checkColumns <- function(cdm_local){ for (table in names(cdm_local)){ cols <- info |> dplyr::filter(.data$cdm_table_name == table)|> - dplyr::select(cdm_field_name,cdm_datatype) + dplyr::select("cdm_field_name","cdm_datatype") missing_cols <- cols|> - dplyr::filter(!(cdm_field_name %in% colnames(cdm_local[[table]]))) + dplyr::filter(!(.data$cdm_field_name %in% colnames(cdm_local[[table]]))) if (nrow(missing_cols) > 0) {