R/list_zones.r

In aaronwolen/activitymonitor: Parse zone files generated by MedAssociates Activity Monitor.

#' List zone names contained in zone file

#' @inheritParams identify_headers
#' @param zone.define header label denoting zone definition area

#' @export

list_zones <- function(txt, zone.define = "Zones Defined") {
  
  # Trim txt to include only zone data area
  txt <- txt[(grep(zone.define, txt) + 1):(grep("Zone Totals", txt) - 1)]

  # Identify and clean up zone names
  zones <- txt[grep("^Zone|^Residual", txt)]
  zones <- gsub("(^\\w+\\s+(\\d{1}|\\w+)).*", "\\1", zones)
  
  return(unique(zones))
}