Invalid Entries tag not saved nor reapplied during auto removal and reload

[nohelix]

##Issue
Entries that have the 'invalid' tag (i.e. invalid == "TRUE") do not have this flag saved during entry removal. Also, its not possible to auto-reapply it during automatic loading of deleted entries.

Details / Possible Solutions

Saving invalid flag on entry removal

In clean_archives, the code should be updated to:

key_data = df %>%
    select(all_of(c("date", "rat_ID", "rat_name", "weight", "omit_list", "assignment", "comments", "scientist", "weightProblem", "rxnProblem", "invalid", "UUID")))

Reapplying flag

Related to #94
Will need to update the import_deleted_entries.R to match the main.R or shiny app import argument that needs to be added.