From 9520fa2b1bcc99578ebcd3ab58fe9fb7bdb2b0b3 Mon Sep 17 00:00:00 2001
From: edward-burn <9583964+edward-burn@users.noreply.github.com>
Date: Fri, 10 Nov 2023 11:20:51 +0000
Subject: [PATCH] fix for arrow type

---
 R/codesFromConceptSet.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/codesFromConceptSet.R b/R/codesFromConceptSet.R
index 609099f..0710fe1 100644
--- a/R/codesFromConceptSet.R
+++ b/R/codesFromConceptSet.R
@@ -184,8 +184,10 @@ extractCodes <- function(file, unknown) {
 appendDescendants <- function(codelistTibble, cdm) {
   cdm[["concept_ancestor"]] %>%
     dplyr::select("ancestor_concept_id", "descendant_concept_id") %>%
+    dplyr::mutate(ancestor_concept_id = as.integer(.data$ancestor_concept_id)) %>%
     dplyr::inner_join(
-      codelistTibble %>%
+      codelistTibble%>%
+        dplyr::mutate(concept_id = as.integer(.data$concept_id)) %>%
         dplyr::filter(.data$include_descendants == TRUE) %>%
         dplyr::rename("ancestor_concept_id" = "concept_id"),
       by = "ancestor_concept_id",