Có cách nào để thêm siêu dữ liệu "tác giả" vào pdf được tạo từ R

Question

Khi tạo tệp PDF bằng thiết bị đồ họa pdf() trong R, bạn có thể thêm siêu dữ liệu tiêu đề một cách dễ dàng với tiêu đề = đối số sang pdf() . Nhưng không có cách nào rõ ràng để thêm tác giả.

Nhìn vào mã cho pdf() trong R, khóa có vẻ là hàm C C_PDF, dường như không có đối số tác giả và vượt quá khả năng của tôi để hack. Có cách nào khác, thuận tiện hơn là đan kết xuất đồ họa của tôi thành một tệp PDF do LaTeX tạo, bao gồm thông tin tác giả và lưu chúng tôi thực hiện thủ công sau này không?

.External(C_PDF, file, old$paper, old$family, old$encoding, 
    old$bg, old$fg, old$width, old$height, old$pointsize, 
    onefile, old$pagecentre, old$title, old$fonts, version[1L], 
    version[2L], old$colormodel, old$useDingbats, old$useKerning, 
    old$fillOddEven, old$compress) 

Tôi không có nhiều hy vọng về điều này như không có câu trả lời bằng ngôn ngữ dựa trên thỏa đáng cho this broader question ...

Answer 1

Dưới đây là một vài chức năng mà có được và thiết lập siêu dữ liệu Exif cho bất kỳ these filetypes , sử dụng ExifTool.

Để có được siêu dữ liệu:

getexif <- function(file, exiftool='exiftool.exe', opts=NULL, 
        intern=TRUE, simplify=FALSE) { 
    # file: the file to be updated 
    # exiftool: the path to the ExifTool binary 
    # opts: additional arguments to ExifTool (optional) 
    # intern: should a named vector of metadata be returned? (bool) 
    # simplify: if intern==TRUE, should the results be returned as a named 
    #   vector (TRUE) or as a data.frame (FALSE)? 
    arg <- c(opts, normalizePath(file)) 
    if(intern) { 
    exif <- system2(normalizePath(exiftool), args=arg, stdout=TRUE) 
    exif <- do.call(rbind, strsplit(exif, ' +: +', perl=T)) 
    row.names(exif) <- exif[, 1] 
    exif[, 2, drop=simplify] 
    } else { 
    system2(normalizePath(exiftool), args=arg, stdout='') 
    } 
} 

Để thiết lập siêu dữ liệu:

setexif <- function(file, metadata, exiftool='exiftool.exe') { 
    # file: the file to be updated 
    # metadata: a named character vector or list containing metadata 
    # exiftool: the path to the ExifTool binary 
    exif <- sprintf('-%s="%s"', names(metadata), metadata) 
    system2(exiftool, args=c(exif, file)) 
} 

Dưới đây là một ví dụ

pdf(f <- tempfile(fileext='.pdf')) 
plot(runif(10)) 
dev.off() 

toolpath <- 'c:/software/exiftool(-k).exe' 


setexif(f, c(title = "foo", subject='bar', author = "Me"), toolpath) 

getexif(f, toolpath) 

##       [,1]           
## ExifTool Version Number  "9.64"          
## File Name     "file237c6f8d4dac.pdf"      
## Directory     "C:/Users/john/AppData/Local/Temp/RtmpSGqI6O" 
## File Size     "7.8 kB"          
## File Modification Date/Time "2014:06:17 10:50:22+10:00"     
## File Access Date/Time  "2014:06:17 10:50:22+10:00"     
## File Creation Date/Time  "2014:06:17 10:50:20+10:00"     
## File Permissions   "rw-rw-rw-"         
## File Type     "PDF"           
## MIME Type     "application/pdf"        
## PDF Version     "1.4"           
## Linearized     "No"           
## Create Date     "2014:06:17 10:50:20"       
## Modify Date     "2014:06:17 10:50:20"       
## Producer     "R 3.1.0"          
## Creator      "R"           
## Page Count     "1"           
## XMP Toolkit     "Image::ExifTool 9.64"      
## Subject      "bar"           
## Title      "foo"           
## Author      "Me"