NewsSource: NewsSource

In sjkiss/tm.newsstand: What the package does (short line)

Description

This function reads in a text file of articles downloaded from the NewsStand database.

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 <- tm::SimpleSource(encoding, length = length(content), 
        content = content, uri = x, reader = readNews, class = "NewsSource")
    s
  }

sjkiss/tm.newsstand documentation built on May 30, 2019, 12:05 a.m.