R/gcv_check_filetypes.R

In antdurrant/gec.annotation: Grammar Error Correction and Annotation

#' convert files for gcv if necessary
#'
#' if a pdf is provided, it will be converted into 300 dpi pngs
#' in a temp directory to be sent to the API
#'
#' if an image file is provided, it will return that
#'
#' otherwise, it will return NULL with a warning
#'
#' @param file file to be converted
#'
#' @return tempfiles and their paths
#' @export
#'
gcv_check_filetypes <- function(file){
    if(stringr::str_detect(file, "pdf$|PDF$")){
        pgs <- seq_len(pdftools::pdf_info(file)$pages)

        tmp <- tempdir()
        outfiles <-
            pdftools::pdf_convert(
                file,
                format = "png",
                filenames = c(paste0(tmp, "/", pgs, ".png")),
                dpi = 300
            )
    } else if(stringr::str_detect(file, "png$|jpg$|jpeg$|tiff$|PNG$|JPG$|JPEG$|TIFF$")){
        outfiles <- file
    } else {
        outfiles <- NULL
        usethis::ui_oops("No parsable files for sending to API. Files must be images or pdfs.")
    }
    outfiles
}