我的电脑上有一个很大的pdf文档（100页），我试图将每页单独保存为pdf（例如page_1.pdf、page_2.pdf等）。
我想出了如何导入大pdf：

library(pdftools)

#https://alexluscombe.ca/blog/getting-your-.pdfs-into-r/
#read in pdf document using pdf_text() function

pdf_report <- pdf_text("~/Desktop/personal-website/Blog_Files/big_pdf.pdf")`

但是我不确定如何将这个PDF文档中的每一页保存为单独的PDF。我知道这可以在Adobe Viewer中手动完成，但是这需要很长时间。
我尝试这个代码：

library(pdftools)
pdf_report <- pdf_text("pdf_report.pdf")
a = pdf_subset(pdf_report,
               pages = 1, output = "subset_a.pdf")

但我得到错误：第一个月
我该怎么补救？