Nothing
# Copyright (C) 2014 - 2015 Jack O. Wasey
#
# This file is part of icd9.
#
# icd9 is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# icd9 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with icd9. If not, see <http:#www.gnu.org/licenses/>.
context("test trim, other utils")
test_that("trim with empty inputs", {
expect_equal(trim(character(0)), character(0))
expect_equal(trim(""), "")
})
test_that("trim with acceptable inputs", {
expect_equal(trim(NA_character_), NA_character_)
# not necesarily desirable, but this states the expectation.
expect_equal(trim(NA_integer_), NA_character_)
expect_equal(trim("jack"), "jack")
expect_equal(trim("jack "), "jack")
expect_equal(trim(" jack "), "jack")
expect_equal(trim(" jack"), "jack")
expect_equal(trim("jack\t"), "jack")
expect_equal(trim("\tjack\t"), "jack")
expect_equal(trim("\tjack"), "jack")
expect_equal(trim("ja ck"), "ja ck")
expect_equal(trim("ja ck "), "ja ck")
expect_equal(trim(" ja ck "), "ja ck")
expect_equal(trim(" ja ck"), "ja ck")
expect_equal(trim(c(" ja ck\t", "hayley ")),
c("ja ck", "hayley"))
# trim and trimCpp should do the same thing, for non-NA
expect_identical(trim(c("123", " a s d f ")),
trimCpp(c("123", " a s d f ")))
# strim (trim a single string)
expect_equal(strim(NA_integer_), NA_character_)
expect_equal(strim(NA_character_), NA_character_)
expect_equal(strim("jack"), "jack")
expect_equal(strim("jack "), "jack")
expect_equal(strim(" jack "), "jack")
expect_equal(strim(" jack"), "jack")
expect_equal(strim("jack\t"), "jack")
expect_equal(strim("\tjack\t"), "jack")
expect_equal(strim("\tjack"), "jack")
expect_equal(strim("ja ck"), "ja ck")
expect_equal(strim("ja ck "), "ja ck")
expect_equal(strim(" ja ck "), "ja ck")
expect_equal(strim(" ja ck"), "ja ck")
# is this what I want?
expect_error(strim(c("jack", " an other ")))
# strim and strimCpp should do the same thing, for non-NA input
expect_identical(strim(" a s d f "), strimCpp(" a s d f "))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.