Как преобразовать одну строку со словом, разделенным запятыми, в несколько строк?

Question

Я создаю блестящее приложение, и в моем приложении пользователь вводит строку, например, такую:

cats,dogs,birds,cows

Итак, несколько слов разделены запятыми, без пробелов. Дело в том, что я хочу использовать каждое из этих слов с заглавной буквы, и я могу сделать это только тогда, когда R увидит строку как группу строк, поэтому результат использования заглавных букв должен быть следующим:

Cats,Dogs,Birds,Cows

Я действительно надеваюне знаю, как это сделать, и проблема в том, что моя строка даже не является вектором, потому что она закодирована так:

unlist(strsplit(input, ",")))

Извините, если это сбивает с толку, и заранее благодарю залюбой ответ

Answer 1

Возможны следующие варианты:

x <- c("cats,dogs,birds,cows", "cats,dogs,birds")
sapply(strsplit(x, ",", fixed = TRUE), 
       function(x) paste0(tools::toTitleCase(x), collapse = ","))

[1] "Cats,Dogs,Birds,Cows" "Cats,Dogs,Birds" 

И есть также удобная библиотека с именем snakecase:

to_upper_camel_case(x, sep_out = ",")

[1] "Cats,Dogs,Birds,Cows" "Cats,Dogs,Birds"