R/tags-adr.R

In herreio/picar: Pica Data Import and Extraction

#' Normierter Verleger / Drucker (Alte Drucke)
#'
#' @param item Item data parsed from picaxml
#' @param collapse Whether to collapse multiple values
#' @export
adr_printer <- function(item, collapse=FALSE) {
    if (!is.null(tag_subf(item, "033J", "d")) & !is.null(tag_subf(item, "033J", "a"))) {
        printer_name <- paste(tag_subf(item, "033J", "d", preserve=TRUE), tag_subf(item, "033J", "a", preserve=TRUE))
        if(collapse) {
            return(collapse_values(printer_name))
        }
        return(printer_name)
    }
    if (!is.null(tag_subf(item, "033J", "D")) & !is.null(tag_subf(item, "033J", "A"))) {
        printer_name <- paste(tag_subf(item, "033J", "D", preserve=TRUE), tag_subf(item, "033J", "A", preserve=TRUE))
        if(collapse) {
            return(collapse_values(printer_name))
        }
        return(printer_name)
    }
    if (is.null(tag_subf(item, "033J", "d")) & !is.null(tag_subf(item, "033J", "a"))) {
        return(tag_subf(item, "033J", "a", collapse=collapse))
    }
    if (is.null(tag_subf(item, "033J", "D")) & !is.null(tag_subf(item, "033J", "A"))) {
        return(tag_subf(item, "033J", "A", collapse=collapse))
    }
}

#' Normierter Verleger / Drucker GND (Alte Drucke)
#'
#' @param item Item data parsed from picaxml
#' @param preserve Whether to preserve empty values
#' @param collapse Whether to collapse multiple values
#' @export
adr_printer_gnd <- function(item, preserve=FALSE, collapse=FALSE) {
  if (!is.null(tag_subf(item, "033J", "0"))) {
      return(tag_subf(item, "033J", "0", preserve=preserve, collapse=collapse))
  }
  if (!is.null(tag_subf(item, "033J", "7"))) {
      return(tag_subf(item, "033J", "7", preserve=preserve, collapse=collapse))
  }
}