Преобразование файлов png в файлы txt

У меня есть 100 отсканированных PDF-файлов, и мне нужно преобразовать их в текстовые файлы.

Сначала я преобразовал их в файлы png (см. сценарий ниже), теперь мне нужна помощь, чтобы преобразовать эти 100 файлов png в 100 текстовых файлов.

library(pdftools)
library("tesseract")

#location
dest <- "P:\\TEST\\images to text"

#making loop for all files
myfiles <- list.files(path = dest, pattern = "pdf",  full.names = TRUE)

#Convert files to png
sapply(myfiles, function(x)
  pdf_convert(x, format = "png", pages = NULL, 
              filenames = NULL, dpi = 600, opw = "", upw = "", verbose = TRUE))

#read files
cat(text)

Я ожидаю иметь текстовый файл для каждого файла png:

From: file1.png, file2.png, file3.png...

To: file1.txt, file2.txt, file3.txt...

Но фактическим результатом является один текстовый файл, содержащий текст всех файлов png.