context("Split names")
test_that("Split names correctly splits names", {
x<-'Boone, Matthew, E'
actual<-split_names(x)
expect_equivalent(actual[2],'E')
x<-'Boone, Matthew E'
actual<-split_names(x)
expect_equivalent(actual[2],'E')
x<-'Boone-Gonzalez, Matthew, E'
actual<-split_names(x)
expect_equivalent(actual[3],'Boone-Gonzalez')
x<-'Boone, Matthew, E, jr'
actual<-split_names(x)
expect_equivalent(actual[2],'E')
x<-'Boone, Matthew, Earl, Ramos, jr,'
actual<-split_names(x)
expect_equivalent(actual[2],'EarlRamos')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.