留下紀錄

留下紀錄

要方便再檢視

減少檢視的時間與程序

所以要是 blog好還是 evernote 好哩

還是想啥都好

R pdf to text

# here is a part for mining/ mate analysis

path0<-"N:\\Dropbox\\R study\\meta study\\mfolder"

mfolder <- file.path("N:\\Dropbox\\R study\\meta study\\mfolder")

path1 <- "N:\\Dropbox\\KMU\\Machine Learning meta-analysis\\Meta-analysis papers\\Traditional meta-analysis\\Example 1(Anticoagulants in CKD)"

m1folder <-file.path(path1)

mfolder

length <- length(dir(mfolder))

length

dirpdf <- dir(mfolder)

dirpdf[1]

# xpdf - http://www.foolabs.com/xpdf/download.html

# set path to pdftotxt.exe and vonvert odf to text

pdftotext <- "C:\\xpdfbin-win-3.04\\bin64\\pdftotext.exe"

for ( i in 1: length(dir(mfolder)) ) {

        pdf <- file.path(path0,dirpdf[i])

        system(paste("\"",pdftotext,"\" \"",pdf,"\"",sep = ""), wait=F)

}