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

R/cohort-generator-main.R

@@ -919,7 +919,7 @@ getCohortGenerationAttritionTable <- function(
     cohortRules <- rules %>% 
       dplyr::filter(.data$cohortDefinitionId==cohortId) %>%
       dplyr::select("ruleSequence", "ruleName", "cohortName") %>%
-      dplyr::arrange("ruleSequence")
+      dplyr::arrange(ruleSequence)
 
     testMask = 0
 
@@ -959,6 +959,7 @@ getCohortGenerationAttritionTable <- function(
   }
 
   attritionTableDistinct <- dplyr::distinct(attritionTable)
+
 
   #adding drop counts
   attritionTableFinal <- attritionTableDistinct %>%