data-raw/BuildOANC.R

In jaytimm/corpusdatr:

#Move files from desktop (only texts files) to GitHub.  The other for processing/annotation.


##OANC - Journal portion
setwd("C:\\Users\\jtimm\\Desktop\\OANC-1.0.1-UTF8\\OANC\\data\\written_1\\journal\\slate")

nonTxts <- list.files(path="C:\\Users\\jtimm\\Desktop\\OANC-1.0.1-UTF8\\OANC\\data\\written_1\\journal\\slate", recursive=TRUE,pattern = ".anc|.xml")

filesFrom <- "C:\\Users\\jtimm\\Desktop\\OANC-1.0.1-UTF8\\OANC\\data\\written_1\\journal\\slate"
filesTo <- "C:\\Users\\jtimm\\Google Drive\\GitHub\\packages\\corpusdatr"

file.remove(nonTxts)

file.copy(filesFrom,filesTo, recursive=TRUE)