## Running a simple table extraction
if(PDE_check_Xpdf_install() == TRUE){
outputtables <- PDE_pdfs2table(pdf = paste0(system.file(package = "PDE"),
"/examples/Methotrexate/29973177_!.pdf"),
out = paste0(system.file(package = "PDE"),"/examples/29973177_tables/"))
}
## Running a the same table extraction as above with all paramaters shown
if(PDE_check_Xpdf_install() == TRUE){
outputtables <- PDE_pdfs2table(pdf = paste0(system.file(package = "PDE"),
"/examples/Methotrexate/29973177_!.pdf"),
out = paste0(system.file(package = "PDE"),"/examples/29973177_tables/"),
dev_x = 20,
dev_y = 9999,
table.heading.words = "",
ignore.case.th = FALSE,
out.table.format = ".csv (WINDOWS-1252)",
write.table.locations = FALSE,
exp.nondetc.tabs = FALSE,
delete = TRUE)
}
Run the code above in your browser using DataLab