NewsSource: NewsSource

In sjkiss/tm.plugin.waterloo: Import articles from the Waterloo Region Record

Description

Create a tm source from Waterloo Region Record tm packages

Usage

NewsSource(x, encoding = "UTF-8")

Arguments

x
encoding

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, encoding = "UTF-8") 
{
    content <- readLines(x)
    content <- content[1:(length(content) - 6)]
    content <- content[grep(".", content)]
    num <- cumsum(grepl("______________", content))
    content <- split(content, num)
    s <- SimpleSource(encoding, length = length(content), content = content, 
        uri = x, reader = readNews, class = "NewsSource")
    s
  }

sjkiss/tm.plugin.waterloo documentation built on May 30, 2019, 8:08 p.m.