Create function to compare scripts in folder with those in the QC log

[michaelmcd18]

Sample code here:

library(tidyverse)
library(mrgmisc)

log_contents <- review::logSummary() %>% 
  filter(str_detect(file, "script")) %>% 
  mutate(file = str_extract(file, "(?<=script/)[:print:]+")) %>% 
  pull(file)
script_contents <- list.files(here::here("script"))

pool(log_contents, script_contents)

Ideally we're interested in getting a function that would output a list of all the files that are in that directory but not in the QC log.

Things to consider:

• Additional function to programmatically add missing scripts to the QC log
• Connecting the current log pending and scripts not in QC log to an easy to view log (on Box?)