Update QC summary template

[michaelmcd18]

No description provided.

[andersone1]

@michaelmcd18 Include "Days Since Last Rev"

[andersone1]

[michaelmcd18]

@andersone1 A couple updates done to this table, added a Days since last edit column. Also now have text wrapping for the File column so the table will always stay on the page, regardless of file path length

[michaelmcd18]

@andersone1 Also updated the author/directory table to reduce datetime to date and add in revision number of last edit

[michaelmcd18]

example-sum.pdf

Realizing now I could've just uploaded the new pdf output instead of screenshots

[seth127]

@michaelmcd18 drive-by comment: can we put the revision number (i.e. the most recent at the time this summary was cut) at the top of the doc? Probably right under the date stamp, something like "Summary as of revision ___".

Any thoughts on that?

[michaelmcd18]

at_risk_days <- 30

not_in_log <-
  dir_summary_data %>%
  dplyr::filter(grepl("script/", File, fixed = TRUE)) %>%  # Just filter out data
  dplyr::filter(Status == "Not in QC log") %>% 
  dplyr::mutate(
    `Latest edit` = as.Date(`Latest edit`),
    `Days since...last edit` = as.numeric(Sys.Date() - `Latest edit`)) %>% 
  dplyr::filter(`Days since...last edit` <= at_risk_days) %>% 
  dplyr::select(File, Author, `Days since...last edit`) %>% 
  dplyr::arrange(`Days since...last edit`)

if (nrow(not_in_log) == 0) {
  not_in_log <- dplyr::tibble(Author = "None", File = paste0("No files modified within the last ", at_risk_days, " days"))
}

not_in_log %>%   
  pmtables::st_new() %>% 
  pmtables::st_center(File = pmtables::col_ragged(8)) %>% # Increase width restriction since only 3 columns 
  pmtables::stable_long() %>%
  pmtables::st_asis()