Feat/project performance metrics

04_initial_data_prep.R

@@ -92,11 +92,14 @@ EnrollmentStaging <- Enrollment %>%
        on = "EnrollmentID") %>%
   fmutate(ExitAdjust = fcoalesce(ExitDate, no_end_date),
          AgeAtEntry = age_years(DOB, EntryDate),
+         AgeAtReportStart = age_years(DOB, max(EntryDate, session$userData$meta_HUDCSV_Export_Start, session$userData$ReportStart, na.rm=TRUE)),
          DOB = NULL) %>%
   fgroup_by(ProjectID, HouseholdID) %>%
   fmutate(
     max_AgeAtEntry = fmax(AgeAtEntry),
     min_AgeAtEntry = fmin(AgeAtEntry),
+    max_AgeAtReportStart = fmax(AgeAtReportStart),
+    min_AgeAtReportStart = fmin(AgeAtReportStart),
     # DomesticViolenceCategory = fcase(
     #   DomesticViolenceSurvivor == 1 & CurrentlyFleeing == 1, "DVFleeing",
     #   DomesticViolenceSurvivor == 1, "DVNotFleeing",
@@ -123,6 +126,15 @@ EnrollmentStaging <- Enrollment %>%
             "UN"
           )
         )
+      )
+    ),
+    HHTypeAtReportStart = factor(
+      fcase(min_AgeAtReportStart < 18 & between(max_AgeAtReportStart, 18, 24), "PY",
+            min_AgeAtReportStart < 18 & max_AgeAtReportStart >= 18, "ACminusPY",
+            min_AgeAtReportStart >= 18 & between(max_AgeAtReportStart, 0, 24), "UY", 
+            min_AgeAtReportStart >= 18, "AOminusUY",
+            min_AgeAtReportStart >= 0 & max_AgeAtReportStart <= 17, "CO", 
+            default = "UN"
       ),
       levels = c("AOminusUY", "ACminusPY", "CO", "UN", "PY", "UY")
     )
@@ -419,8 +431,39 @@ session$userData$Services <- Services
 session$userData$Exit <- Exit
 session$userData$Enrollment <- Enrollment
 session$userData$CurrentLivingSituation <- CurrentLivingSituation
+
+session$userData$IncomeBenefits <- IncomeBenefits
+
+## Used only for CE Assessed Households Project Dashboard Metric ----
+# TO EXCLUDE:
+# - CEParticipation.AccessPoint == 0
+# - AssessmentDate not within project’s CE Participation Period
+# - ProjectID not found in CEParticipation.csv
+session$userData$CEParticipation <- CEParticipation |>
+  join(
+    Enrollment |> 
+      fsubset(
+        RelationshipToHoH == 1,
+        EnrollmentID, ProjectID, ProjectType, HouseholdID, HouseholdType
+      ),
+    on = "ProjectID",
+    column = TRUE
+  ) |>
+  join(
+    Assessment |> fselect(AssessmentID, EnrollmentID, AssessmentDate), 
+    on = "EnrollmentID"
+  ) |>
+  fmutate(
+    nmiss = AccessPoint == 0 | 
+      !AssessmentDate %inrange% list(CEParticipationStatusStartDate, CEParticipationStatusEndDate) |
+      .join == "CEParticipation"
+  ) |>
+  fselect(EnrollmentID, ProjectID, ProjectType, HouseholdID, HouseholdType, AssessmentDate, nmiss) |>
+  funique()
+
 session$userData$Assessment <- Assessment
 session$userData$Event <- Event
+
 # desk_time_providers <- validation() %>%
 #   dplyr::filter(
 #     (entered_between(., today() - years(1), today()) |

changelog.R

@@ -4,9 +4,10 @@ output$changelog <- renderDT({
     ~ Date,
     ~ Change,
     "08-06-2026",
-    "<b>Bug Fixes</b> <br>
-      - Remove enrollments with no Bed Nights for 'Bed night entered on Project Exit Date' check (Issue <a href='https://github.com/abtassociates/eva/issues/1031' target='_blank'>#1031</a>)
-    ",
+    "<b>New Features</b> <br>
+      - New Project Dashboard tab containing performance metrics for selected project <br>
+    <b>Bug Fixes</b> <br>
+      - Remove enrollments with no Bed Nights for 'Bed night entered on Project Exit Date' check (Issue <a href='https://github.com/abtassociates/eva/issues/1031' target='_blank'>#1031</a>)",
     "08-03-2026",
     "<b>Bug Fixes</b> <br>
       - Fixed System Exits Client-level Download functionality. It was causing an error when writing the output to an Excel file.<br>

hardcodes.R

@@ -75,11 +75,11 @@ psh_oph_project_types <- c(psh_project_type, ph_other_project_types)
 
 ph_project_types <- c(psh_oph_project_types, rrh_project_type)
 
-lh_ph_hp_project_types <- c(0, 1, 2, 3, 4, 8, 9, 12, 13)
+lh_ph_hp_project_types <- c(0, 1, 2, 3, 4, 8, 9, 10, 12, 13)
 
 coc_funded_project_types <- c(2, 3, 13)
 
-project_types_w_beds <- c(0, 1, 2, 3, 8, 9, 10, 13)
+project_types_w_beds <- c(lh_residential_project_types, ph_project_types)
 
 non_res_project_types <- c(4, 6, 7, 11, 12, 14)