R/list_translators.R

In lbraglia/lbav: AV YouTube subs utilities

#' List translators who contributed to compled files
#'
#' @param prj project name
#' @export 
list_translators <- function(prj){

    compl_trn <- list.files(path = subs_dir(prj), pattern = compl_ptrn)
    times <- digits_to_time(gsub(extract_ptrn, '\\1', compl_trn))
    gh_user <- gsub(extract_ptrn, '\\2', compl_trn)
    user <- lbprivee::av_yt_gh_user_to_id(gh_user)
    cat(apply(data.frame(times, user), 1, paste, collapse = ' '), sep = '\n')
}