R/qpr_expr_reentries.R

In COHHIO/RminorElevated: RminorElevated

qpr_expr$reentries <- list()
qpr_expr$reentries$expr <- rlang::expr({
  ExitsFromHP <- qpr_reentries() |>
    dplyr::filter(LatestPermanentProject12 >= (input$date_range[1] - lubridate::years(1)) &
                    LatestPermanentProject12 <= input$date_range[2]) |> 
    dplyr::filter(ExitingHP %in% input$region) |> 
    dplyr::group_by(UniqueID) |>
    dplyr::mutate(min_entry_date = min(EntryDate, na.rm = TRUE)) |> 
    dplyr::filter(EntryDate == min_entry_date | is.na(EntryDate)) |> 
    dplyr::ungroup() |> 
    dplyr::select(-min_entry_date)
  Reentries <- qpr_reentries() |> 
    HMIS::entered_between(input$date_range[1], input$date_range[2]) |> 
    dplyr::filter(ExitingHP %in% input$region) |> 
    dplyr::group_by(UniqueID) |> 
    dplyr::filter(EntryDate == min(EntryDate)) |> 
    dplyr::ungroup()
  
  list(ExitsFromHP = ExitsFromHP,
       Reentries = Reentries)
})

qpr_expr$reentries$infobox <- rlang::expr({
  req(data_env())
  qpr_infobox(
    data_env(),
    title = "Number of Re-entries",
    color = "info",
    value = scales::percent(nrow(.data$Reentries) / nrow(.data$ExitsFromHP)),
    icon = shiny::icon("key"),
    subtitle = paste(
      nrow(.data$Reentries),
      "/",
      nrow(.data$ExitsFromHP),
      "households"
    )
  )
})

qpr_expr$reentries$datatable <- rlang::expr({
  data_env()$Reentries |>
    dplyr::select(
      UniqueID,
      "Exiting HP Program" = ExitingHP,
      "Exit Date from HP" = LatestPermanentProject12,
      "Entry Date (Re-Entry)" = EntryDate,
      "Exit Date (Re-Entry)" = ExitDate
    ) |>
    datatable_default(escape = FALSE)
})


qpr_expr$reentries$details <- rlang::expr({
  tibble::tibble(
    ProjectType = c("Homelessness Prevention"),
    Goal = c("HP Projects will have no more than 25% of households who exited to PH enter into the Ohio BoSCoC homeless system within 12 months of HP assistance"),
    HowCalculated = c("Number of households who returned to ES, SH, TH, or Outreach within 12 months of exit / number of household leavers to permanent housing")
    ) |> 
    DT::datatable(escape = FALSE)
})