r check fixes

Author: ablack3

R/generateConceptCohortSet.R

@@ -132,10 +132,10 @@ cohortCollapseLocal <- function(x) {
       .groups = "drop"
     ) %>%
     dplyr::select(
-      .data$cohort_definition_id,
-      .data$subject_id,
-      .data$cohort_start_date,
-      .data$cohort_end_date
+      "cohort_definition_id",
+      "subject_id",
+      "cohort_start_date",
+      "cohort_end_date"
     )
 }
 
@@ -465,7 +465,7 @@ generateConceptCohortSet <- function(cdm,
                                                          !!dateadd(df$start_date, 1))) %>%
       # silently ignore cdm records where end date is before start.
       # Another reasonable option could be to set end to start if end is before start.
-      dplyr::filter(cohort_start_date <= .data$cohort_end_date)
+      dplyr::filter(.data$cohort_start_date <= .data$cohort_end_date)
   }
 
   if (length(domains) == 0) {