R/subfields_table_f.R

In Volodin-DD/rusmarcFunds: Work with rusmarc format easily.

#' Fully merge specific fields with subfields into one table.
#'
#' @param df A dataframe made by read_funds_txt.
#' @param field_names A character vector of field names.
#' @param subfield_names A character vector of subfield names.
#' @examples
#' subfield_table_f(funds, c("200", "210"), c("$a", "$c"))

subfields_table_f <- function(df, field_names, subfield_names) {
  temp <- subfield_content(df, field_names[1], subfield_names[1], preserve_field_names = F,
                           preserve_field_number = F)
  for (i in 2:length(field_names)) {
    temp <- full_join(
      temp,
      subfield_content(df, field_names[i], subfield_names[i], preserve_field_names = F),
      by = "id"
    )
  }
  colnames(temp) <- c("id", str_c(field_names, subfield_names, sep = ""))
  return(temp)
}