R/processDocType7.R

In seanbergin/srp: Archaeological Site Record Processor

#' Find and store important values for document type 7
#'
#' This function allows you to sort through document type 7 and save relevant information
#' @param df  the dataframe for this site which is passed to each document type
#' @param stringList  all of the page as a string list
#' @keywords type7
#' @export
#' @examples
#' processDocType7()

processDocType7 <- function(df = NULL, stringList = NULL){

  df$Zone.UTM <- phraseFinder(stringList, "zone:", "easting:")
  if (identical(df$Zone.UTM,"jo")){
    df$Zone.UTM <- 10
    }

  df$E.UTM <- phraseFinder(stringList, "easting:", "northing:")
  df$N.UTM <- phraseFinder(stringList, "northing:", "usgs")
  df$OccupationDensity <- phraseFinder(stringList,"dimensions:","acres:")
  df$Date <- phraseFinderRemover(stringList, "use:", "determined:", 2)

  return(df)
}