R/ingest_sheetexist.R

In USAID-OHA-SI/ingestMMD: Ingest Multi-Month Dispensing (MMD) Collection Tool Data

#' Confirm that sheet exists
#'
#' @param filepath filepath to MMD Collection Tool
#' @param sheetname name of the sheet to check
#'
#' @export

ingest_sheetexist <- function(filepath, sheetname){

  sheets <- readxl::excel_sheets(filepath)

  sheetname %in% sheets
}