R/write_clean_references_df_to_xlsx.R

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

#' Write Clean References Dataframe to XLSX
#'
#' @param endnote_list list created with create_endnote_list()
#' @param file name of file to save (default: default_clean_xlsx(endnote_list))
#' @param export_dir directory where to save 'file' (default: ".")
#' @param give_hints if TRUE hints will be generated, e.g.
#'  "add_public_or_confidential" for accessiblity data
#' @param dbg show debug messages (default: TRUE)
#' @param ... additional arguments passed to openxlsx::write.xlsx()
#' publication type
#' @export
#' @importFrom dplyr select_if arrange desc
#' @importFrom openxlsx write.xlsx
#' @examples
#' \dontrun{endnote_list <- create_endnote_list()
#' write_clean_references_df_to_xlsx(endnote_list)
#' }
write_clean_references_df_to_xlsx <- function(endnote_list,
                                              file = default_clean_xlsx(endnote_list), export_dir = ".",
                                              give_hints = FALSE, dbg = TRUE, ...) {
  write_references(endnote_list, file, export_dir,
    clean = TRUE, give_hints,
    dbg, ...
  )
}