fix internally reason_id casting in `recordCohortAttrition`

[nmercadeb]

cdm <- PatientProfiles::mockPatientProfiles()
#> Note: method with signature 'DBIConnection#Id' chosen for function 'dbExistsTable',
#>  target signature 'duckdb_connection#Id'.
#>  "duckdb_connection#ANY" would also be valid
#> Warning: ! 1 casted column in person as do not match expected column type:
#> • `gender_concept_id` from numeric to integer
#> Warning in validateCdmReference(cdm, soft = .softValidation): There are observation period end dates after the current date: 2024-08-15
#> ℹ The latest max observation period end date found is 2203-05-16
#> ! cohort columns will be reordered to macth the expected order:
#>   cohort_definition_id, subject_id, cohort_start_date, and cohort_end_date.
#> ! cohort columns will be reordered to macth the expected order:
#>   cohort_definition_id, subject_id, cohort_start_date, and cohort_end_date.
cdm$cohort1 <- cdm$cohort1 |>
  omopgenerics::recordCohortAttrition(reason = "a")
#> Warning: ! 1 casted column in cohort1 (cohort_attrition) as do not match expected column
#>   type:
#> • `reason_id` from numeric to integer

^{Created on 2024-08-15 with reprex v2.1.1}

[catalamarti]

this has already been fixed