给你一个小例子，希望可以帮到你～

# # # # create thecorpus

trainC <- PCorpus(DirSource("en_US/sampled/train"),readerControl=list(reader=readPlain),dbControl=list(useDB=TRUE,dbName="./trainDB",dbType="DB1"))