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(
            "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.