Update checkFetusId.R

oxford-pharmacoepi · Feb 8, 2023 · 40fa89a · 40fa89a
1 parent 053f92b
commit 40fa89a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/checkFetusId.R b/R/checkFetusId.R
@@ -39,14 +39,14 @@ recordshelp <- NULL
 records<- records %>% dplyr::mutate(
 
   single_not_align_with_noOfFetusId = ifelse(.data$pregnancy_single !=0 ,dplyr::if_else(
-       (.data$n > 1  &  .data$pregnancy_single == 4188539) | (.data$n == 1  &  .data$pregnancy_single == 4188540),1,0,missing = NULL),NA),
+       (.data$n > 1  &  .data$pregnancy_single == 4188539) | (.data$n == 1  &  .data$pregnancy_single == 4188540),1,0),NA),
 
   single_align_with_noOfFetusId = ifelse(.data$pregnancy_single !=0 , dplyr::if_else(
-    (.data$n > 1  &  .data$pregnancy_single == 4188540) | (.data$n == 1  &  .data$pregnancy_single == 4188539),1,0,missing = NULL),NA),
+    (.data$n > 1  &  .data$pregnancy_single == 4188540) | (.data$n == 1  &  .data$pregnancy_single == 4188539),1,0),NA),
 
-  noOfFetus_not_align_with_noOfFetusId = dplyr::if_else((.data$pregnancy_number_fetuses  != .data$n ),1,0,missing = NULL),
+  noOfFetus_not_align_with_noOfFetusId = dplyr::if_else((.data$pregnancy_number_fetuses  != .data$n ),1,0),
 
-  noOfFetus_align_with_noOfFetusId = dplyr::if_else((.data$pregnancy_number_fetuses  == .data$n ),1,0,missing = NULL),
+  noOfFetus_align_with_noOfFetusId = dplyr::if_else((.data$pregnancy_number_fetuses  == .data$n ),1,0),
 
   pregnancy_id = .data$pregnancy_id,
   .keep=c("used"))  %>%