From e12010dcb97cf0241fcb62b8ab88a4c44412bb47 Mon Sep 17 00:00:00 2001
From: Gowtham Rao <rao@ohdsi.org>
Date: Fri, 13 Sep 2024 07:23:24 -0400
Subject: [PATCH] Update ExtractConceptSetsInCohortDefinitionSet.R

---
 R/ExtractConceptSetsInCohortDefinitionSet.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/ExtractConceptSetsInCohortDefinitionSet.R b/R/ExtractConceptSetsInCohortDefinitionSet.R
index 139a7f1..0d9c9d1 100644
--- a/R/ExtractConceptSetsInCohortDefinitionSet.R
+++ b/R/ExtractConceptSetsInCohortDefinitionSet.R
@@ -52,16 +52,16 @@ extractConceptSetsInCohortDefinitionSet <-
         !class(conceptSetsInCohortDefinition) == "try-error"
       )) {
         conceptSets[[i]] <- conceptSetsInCohortDefinition |>
-          dplyr::select(-.data$uniqueConceptSetId) |>
+          dplyr::select(dplyr::all_of(uniqueConceptSetId)) |>
           dplyr::mutate(cohortId = cohort$cohortId) |>
-          dplyr::relocate(.data$cohortId, .data$conceptSetId)
+          dplyr::relocate(dplyr::all_of(c("cohortId", "conceptSetId")))
       }
     }
     if (length(conceptSets) == 0) {
       return(NULL)
     }
     conceptSets <- dplyr::bind_rows(conceptSets) |>
-      dplyr::arrange(.data$cohortId, .data$conceptSetId)
+      dplyr::arrange(dplyr::all_of(c("cohortId", "conceptSetId")))
 
     conceptSetSig <- list()
     for (i in (1:nrow(conceptSets))) {