R/unPackDataPackName.R

In pepfar-datim/datapackr: A Package that Packs and Unpacks all Data Packs and Target Setting Tools

#' @export
#' @title Extract the name of the datapack
#'
#' @description
#' When supplied a submission path, will return the name of the datapack.
#'
#' @param submission_path Local path to the file to import.
#' @param tool What type of tool is the submission file? Default is "Data Pack".
#' javascript:;
#' @return Character vector of the name of the data pack.
#'
unPackDataPackName <- function(submission_path,
                              tool) {

  submission_path <- handshakeFile(path = submission_path,
                                   tool = tool)

    readxl::read_excel(
      path = submission_path,
      sheet = "Home",
      range = dataPackName_homeCell()) %>%
    names() %>%
    unlist()

}