R/read_tags.R

Defines functions read_tags

#' read_tags
#'
#' @param tag [[character]] A `character` string naming the TAG field in the RCC files.
#' @param raw_rcc [[character]]  A `character` vector containing all lines from a RCC file.
#'
#' @keywords internal
#' @usage NULL
#' @noRd
#'
#' @return [[list]]
read_tags <- function(tag, raw_rcc) {
  positions <- grep(pattern = tag, x = raw_rcc)
  if ((positions[2] - positions[1]) != 1) {
    content_list <- raw_rcc[(positions[1] + 1):(positions[2] - 1)]
    tag_content <- do.call("rbind", strsplit(content_list, ","))
  } else {
    tag_content <- matrix(NA, nrow = 1, ncol = 1, dimnames = list(NULL, tag))
  }

  if (tag != "Code_Summary") {
    tag_content <- format_tag_content(tag = tag, content = tag_content)
  } else {
    tag_content <- as.data.frame(tag_content, stringsAsFactors = FALSE)
  }

  list(tag_content)
}

Try the NACHO package in your browser

Any scripts or data that you put into this service are public.

NACHO documentation built on Dec. 6, 2022, 1:06 a.m.