R/paperclip.R

In patelm9/readi:

#' Applies a Readi to README.md File Details section with the new file details as well as attaches it to the provided csv or Excel file.
#' @importFrom secretary typewrite
#' @export

paperclip <-
    function(destination_file,
             sources,
             output_file,
             summary, ...,
             disable_rstudioapi = FALSE) {

        readi_object <- make_readi(sources,
                                   output_file,
                                   summary, ...,
                                   disable_rstudioapi = FALSE)

        update_readme(readi_object = readi_object)

         if (grepl("[.]csv$", destination_file, ignore.case = TRUE) == TRUE) {

                    attach_to_csv(readi_object = readi_object,
                                  path_to_csv = destination_file)

         } else if (grepl("[.]xlsx$", destination_file, ignore.case = TRUE) == TRUE) {

                    update_excel(path_to_excel = destination_file,
                                 readi_object = readi_object)

         } else {
             secretary::typewrite("Readi only works on csv and xlsx files.")
         }
    }