tests/testthat/test-add_incomplete.R

context("Checking add_incomplete")

test_that("add_incomplete adds `|` to no punctuation sentences.",{

    expected <- c("This in a|", "I am funny!", "An ending of sorts%|", "What do you want?")
    
    x <- add_incomplete(
        c(
            "This in a",
            "I am funny!",
            "An ending of sorts%",
            "What do you want?"
        ), 
        silent = TRUE
    )
    
    expect_equal(x, expected)
    
})

Try the qdap package in your browser

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

qdap documentation built on May 15, 2018, 9:04 a.m.