Fixing #300 (#329)

* Fixing #300 Syntax error in code was causing an issue in the rule sequencing, leading to incorrect attrition values. thanks to @chrisknoll for all the help * fixing R check fixing R check and removing a pointless file --------- Co-authored-by: jreps <[email protected]>
OHDSI · Sep 19, 2024 · 258a786 · 258a786
1 parent 677d6b7
commit 258a786
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/cohort-generator-main.R b/R/cohort-generator-main.R
@@ -927,7 +927,7 @@ getCohortGenerationAttritionTable <- function(
     cohortRules <- rules %>% 
       dplyr::filter(.data$cohortDefinitionId==cohortId) %>%
       dplyr::select("ruleSequence", "ruleName", "cohortName") %>%
-      dplyr::arrange("ruleSequence")
+      dplyr::arrange(.data$ruleSequence)
 
     testMask = 0
 
@@ -967,6 +967,7 @@ getCohortGenerationAttritionTable <- function(
   }
 
   attritionTableDistinct <- dplyr::distinct(attritionTable)
+
 
   #adding drop counts
   attritionTableFinal <- attritionTableDistinct %>%