R 不允许写入文档，cpp_pdf_select 中的错误输入、输出、页面、密码

如何解决R 不允许写入文档，cpp_pdf_select 中的错误输入、输出、页面、密码

我正在尝试使用以下代码，该代码用于订购 pdf 的页面：

ordenar <- function(archivo) {
  
  library(pdftools)
  
  nombre <- sapply(strsplit(sapply(strsplit(pdftools::pdf_text(archivo),"Nombre: +"),`[`,2),"\r"),1)
  nombre <- as.character(nombre)
  
  OBRA <- sapply(strsplit(sapply(strsplit(pdftools::pdf_text(archivo),"Depto\\.: +"),1)
  
  OBRA <- as.character(OBRA)
  
  OBRA <- substr(OBRA,1,5)
  
  OBRA <- as.data.frame(OBRA)
  
  combine_n <- cbind(OBRA,nombre)
  
  pagina <- time(nombre)
  
  combine_n <- cbind(combine_n,pagina)
  
  orden<- with(combine_n,combine_n[order(OBRA,nombre),])
 
  ordenado <- as.vector(orden$pagina)
  
  pdf_subset(archivo,pages = ordenado,output = "compilado_a-z.pdf")
}

该代码在其他计算机上运行良好，但在我目前使用的计算机上出现此错误：

Error in cpp_pdf_select(input,output,pages,password) : 
  open C:\Users\HP\Documents\prueba\compilado_a-z.pdf: Permission denied 

我已经运行了部分代码并且它能够从 pdf 中提取数据，当它尝试创建一个新的 pdf 时会出现问题，我也尝试将数据框导出到 excel 并且我得到了同样的错误。这是一台工作电脑，我应该打电话给 IT 还是内部问题？