Merge pull request #285 from OHDSI/notes

Update mockOmopSketch.R

Author: cecicampanile

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) {