Имя файла, содержащее нули и длину файла

Question

Я делю pdf файл на отдельные страницы. Но после того, как файл сгенерирован, имя файла содержит количество нулей, равное длине файла. Предположим, что моя страница pdf файла равна 10, затем в имени файла добавляется 10 нулей, а затем серийный номер.number.So для небольшого файла, он работает нормально, но когда я пытался разделить pdf, содержащий 1000 или более, мой код ломается, потому что он сначала пытается добавить 1000 нулей времени, а затем серийное имя. Так что любой может помочь мне в этом.

Ошибка при разбиении файла, содержащего более 800 страниц

Ошибка в cpp_pdf_split (ввод, вывод, пароль): открыть C: / Users / Desktop / Page .pdf_.pdf: такого файла нет иликаталог

Ниже приведен мой код:

install.packages("qpdf")
library(qpdf)
pdf_split(file.choose(),output = NULL)

Я хочу, чтобы имя моего файла создавалось только по серийному номеру страницы, или решение, которое приведет к удалению этих нежелательных нулей.

Answer 1

library(qpdf)
library(textreadr)

filePath <- file.choose()
pdfInputFile <- read_pdf(filePath)

for(i in 1:nrow(pdfInputFile))
{
pdf_subsets(filePath,pages = i,Output=paste0(gsub(basename(filePath),pattern=".pdf",replacement=""),"_",i,".pdf"))
}