https://github.com/cran/pracma
Tip revision: e970b8e92676e0d1f2c84b116f0bad93b03b89c6 authored by Hans W. Borchers on 15 December 2019, 21:30:02 UTC
version 2.2.9
version 2.2.9
Tip revision: e970b8e
strings.R
##
## s t r i n g s . R tests
##
strcat <- pracma::strcat
strcmp <- pracma::strcmp
strcmpi <- pracma::strcmpi
strcmp(" empty", " empty") # T
!strcmp("empty ", "empty") # F
!strcmp("foobar", "barfoo") # F
!strcmp("string", "String") # F
!strcmp(c("yes", "no"), c("yes", "on")) # F
!strcmp(c("abc", "abc"), c("abc")) # F
strcmp(c("yes", "no"), c("yes", "no")) # T
strcmpi("string", "String") # T
strcmpi(c("yes", "no"), c("Yes", "No")) # T
blanks <- pracma::blanks
deblank <- pracma::deblank
strTrim <- pracma::strTrim
strjust <- pracma::strjust
strRep <- pracma::strRep
identical(c(blanks(0), blanks(1), blanks(2)), c("", " ", " "))
s <- c(" abc", "abc ", " abc ", " a b c ", "abc", "a b c")
identical(deblank(s), c(" abc", "abc", " abc", " a b c", "abc", "a b c"))
identical(strTrim(s), c("abc", "abc", "abc", "a b c", "abc", "a b c"))
identical(strjust(s, justify = "center"),
c(" abc ", " abc ", " abc ", "a b c", " abc ", "a b c"))
s <- c('This is a good example.', "He has a good character.",
'This is good, good food.', "How goodgood this is!")
identical(strRep(s, 'good', 'great'),
c('This is a great example.', "He has a great character.",
'This is great, great food.', "How greatgreat this is!"))