R/write_references.R

In KWB-R/kwb.endnote: Helper Functions for Analysing KWB Endnote Library (Exported as .xml)

# write_references -------------------------------------------------------------
write_references <- function(
                             endnote_list, file, export_dir = ".", clean, give_hints = FALSE, dbg = TRUE, ...) {
  refs_df <- if (clean) {
    endnote_list %>%
      clean_references_df(give_hints = give_hints, dbg = dbg)
  } else {
    endnote_list %>%
      create_references_df() %>%
      dplyr::arrange(dplyr::desc(.data$rec_number))
  }

  path <- file.path(export_dir, file)

  openxlsx::write.xlsx(file = path, ..., x = c(
    create_list_by_pubtype_from_df(refs_df),
    create_list_with_unique_entries(refs_df)
  ))
}