Diff of /pkg/R/corpus.R

Parent Directory | Revision Log | Patch

	revision 1070, Tue May 18 08:58:22 2010 UTC	revision 1073, Fri May 28 12:32:46 2010 UTC
#	Line 10	Line 10
10	DBControl <- function(x) attr(x, "DBControl")	DBControl <- function(x) attr(x, "DBControl")
11
12	PCorpus <- function(x,	PCorpus <- function(x,
13	readerControl = list(reader = x$DefaultReader, language = "eng"),	readerControl = list(reader = x$DefaultReader, language = "en"),
14	dbControl = list(dbName = "", dbType = "DB1"),	dbControl = list(dbName = "", dbType = "DB1"),
15	...) {	...) {
16	readerControl <- prepareReader(readerControl, x$DefaultReader, ...)	readerControl <- prepareReader(readerControl, x$DefaultReader, ...)
#	Line 20	Line 20
20	db <- filehash::dbInit(dbControl$dbName, dbControl$dbType)	db <- filehash::dbInit(dbControl$dbName, dbControl$dbType)
21
22	# Allocate memory in advance if length is known	# Allocate memory in advance if length is known
23	tdl <- if (x$Length > 0)	tdl <- if (x$Length > 0)x
24	vector("list", as.integer(x$Length))	vector("list", as.integer(x$Length))
25	else	else
26	list()	list()
#	Line 59	Line 59
59
60	# The "..." are additional arguments for the FunctionGenerator reader	# The "..." are additional arguments for the FunctionGenerator reader
61	VCorpus <- Corpus <- function(x,	VCorpus <- Corpus <- function(x,
62	readerControl = list(reader = x$DefaultReader, language = "eng"),	readerControl = list(reader = x$DefaultReader, language = "en"),
63	...) {	...) {
64	readerControl <- prepareReader(readerControl, x$DefaultReader, ...)	readerControl <- prepareReader(readerControl, x$DefaultReader, ...)
65

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.1070   changed lines   Added in v.1073

---

R-Forge@R-project.org	ViewVC Help
Powered by ViewVC 1.0.0