R/extract_direction_from_file.R

In BrianAronson/docshop: Doctor Shopping Functions

Defines functions extract_direction_from_file

Documented in extract_direction_from_file

#' Extracts direction from file
#' @export

extract_direction_from_file = function(outfile) {
  direction = ifelse(!is.na(str_extract(outfile, "from_zip")), "from", "to")
  return(direction)
}