R/calc_disags.R

In WHESRi/whesApp: Builds shiny app for the Welsh Health Equity Solutions Platform

#' Calculate disaggregates
#' Calculate which disaggregates are available for all indicators
#' @param id The selected indicator
#' @return The available disagregates
calc_disag_vars = Vectorize(function(id) {
  disags =
    indicator_data %>%
    dplyr::filter(ind_id == id) %>%
    dplyr::summarise(dplyr::across(tidyselect::all_of(breakdown_vars),
                                   dplyr::n_distinct)) %>%
    tidyr::pivot_longer(cols = tidyselect::everything()) %>%
    dplyr::filter(value > 1) %>%
    dplyr::pull(name)

  if (identical(disags, character(0))) {
    disags = "None"
  } else {
    disags = c("None", disags)
  }
  return(list(disags))
},
USE.NAMES = FALSE)