Conversion of PDF file to Excel in R

Question

I want to convert a two-page PDF file into an excel spreadsheet. Two tables—a balance statement and a profit and loss table for a company—make up the pdf. I now have this internet code (in R) that functions flawlessly, but it only converts the second page out of the two, not the first. I looked everywhere and attempted a variety of options, but nothing worked. The online conversion tools are also too expensive because there are so many of these files. Could someone please assist me with this? It will be fantastic if it can convert both pages at once.

library("pdftools")
tx1<-pdf_text("C:/Users/Snehal Salaskar/Desktop/Companies/CanFin/2013-14.pdf")
tx3<-strsplit(tx1,"\n")
lapply(tx3, function(x) write.table( data.frame(x), 'Profit.csv'  , sep=',' ))

I want it to convert all 2 pages at once.

Answer 1

I looked at the pdf, and it appears that formatting it into a good table will take some time. The problem is that you were saving to the same file name twice if all you want to do is capture the outputs to a file.

Using append=TRUE will save them both to one file, rather than two, as in the example above.

# save to two files
lapply(seq_along(tx3), function(i){
  write.table( data.frame(tx3[[i]]), sprintf('Profit_%s.csv', i), sep=',' )
}) 

# save to single file with append=TRUE adding on the data
lapply(seq_along(tx3), function(i){
  write.table( data.frame(tx3[[i]]), sprintf('Profit.csv', i), sep=',' ,
               append = TRUE)
})