0

我正在尝试使用以下代码，该代码用于订购 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\\.: +"), `[`, 2), "\r"), `[`, 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 还是内部问题？

4

0 回答 0