tests/testthat/test-readtext-methods.R

context("test readtext methods")

test_that("test print.readtext", {
    expect_that(
        print(readtext("../data/fox/fox.txt")),
        prints_text("readtext object consisting of 1 document and 0 docvars.")
    )
    
    testreadtext <- readtext(
        c(
            "../data/fruits/apple.txt",
            "../data/fruits/orange.txt"
        )
    )
    expect_that(
        print(testreadtext),
        prints_text("readtext object consisting of 2 documents and 0 docvars.")
    )
    
    expect_output(
        print(readtext("../data/csv/test.csv", text_field = "text")),
        "readtext object consisting of 2 documents and 2 docvars."
    )
})


test_that("test as.character.readtext", {
    tmp <- readtext("../data/csv/test.csv", text_field = "text")
    expect_equal(
        as.character(tmp),
        c(test.csv.1 = "Lorem ipsum.", test.csv.2 = "Dolor sit")
    )
})

Try the readtext package in your browser

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

readtext documentation built on June 7, 2023, 5:11 p.m.