R: используется для правильной работы

Question

«Мой» capitalize работает нормально? Вот тестовый пример из inside-r.org с их результата в комментарии:

library(Hmisc) 
words <- strsplit("Hello wOrld", " ")[[1]]; 
cat(paste(toupper(words), collapse=" "), "\n")  # "HELLO WORLD" 
cat(paste(tolower(words), collapse=" "), "\n")  # "hello world" 
cat(paste(capitalize(words), collapse=" "), "\n") # "Hello WOrld" 

И вот что я получаю:

HELLO WORLD 
hello world 
Hello wOrld #WRONG!!! 

Другой тест:

> capitalize(c("Hello world", "hello world", "hello World")) 
[1] "Hello world" "Hello world" "hello World" 

Случай 3 снова неверно. То есть если capitalize в моем случае видит заглавную букву в любом месте строки, она не работает должным образом. Есть идеи?

Обновление. Проблема решена с R.utils

library(R.utils) 
capitalize(c("Hello world", "hello world", "hello World", "test cAse")) 
[1] "Hello world" "Hello world" "Hello World" "Test cAse" 

Answer 1

Я не уверен, что вы после, но это моя трещина в том, что я думаю, что вам нужно. возможно, лучше описать вашу цель или предоставить желаемый результат. Вот регулярное выражение для того, чтобы использовать только первую букву первого слова, а также использовать каждое слово «первая буква»:

x <- c("Hello world", "hello world", "hello World", "test cAse") 

sub("(\\w)(\\w*)", "\\U\\1\\E\\2", x, perl=TRUE) 
## [1] "Hello world" "Hello world" "Hello World" "Test cAse" 

gsub("(\\w)(\\w*)", "\\U\\1\\E\\2", x, perl=TRUE) 
## [1] "Hello World" "Hello World" "Hello World" "Test CAse" 

Answer 2

Вы должны использовать более низкие строки случая для capitalize работать. Простым решением является использование tolower в дополнение к capitalize.

capitalize(tolower(c("Hello world", "hello world", "hello World"))) 
## [1] "Hello world" "Hello world" "Hello world"