R/extract_ou.R

In USAID-OHA-SI/fastR: Import COP19 FAST Tool Budgets

#' Read in OU Name from FAST PPL tab
#'
#' @param filepath full file path for the COP19 FAST
#' @param cell cell to extract OU name from
#'
#' @export
#' @importFrom magrittr %>%

extract_ou <- function(filepath, cell){

  ou <- readxl::read_excel(filepath,
                     sheet = "1 PLL",
                     range = cell) %>%
    names()

  return(ou)

}