tst <- c('Smith, JohnJohn Smith',
'EducationNational DefenseOther Committee',
'McCain, JohnJohn McCain')
tst. <- camelParse(tst)
stopifnot(
all.equal(tst., list(c('Smith, John', 'John Smith'),
c('Education', 'National Defense', 'Other Committee'),
c('McCain, John', 'John McCain') ) )
)
Run the code above in your browser using DataLab