inst/unitTests/test_RevStream.R

test_Rev <-
    function()
{
    checkTrue(validObject(Rev()))

    fl <- system.file("extdata", "s_1_sequence.txt", package="Streamer")
    s <- Stream(Rev(), RawInput(fl))
    res <- yield(s)
}

Try the Streamer package in your browser

Any scripts or data that you put into this service are public.

Streamer documentation built on Nov. 8, 2020, 5:53 p.m.