How to convert not.camel.case to CamelCase in R

Question

In R, I want to convert

t1 <- c('this.text', 'next.text') "this.text" "next.text" 

to

'ThisText' 'NextText' 

I have tried

gsub('\\..', '', t1) 

But this gives me

"thisext" "nextext" 

as it does not replace the letter after the period.

Probably really easy but I can't work it out.

Answer 1

Alternatively a regex based solution:

t1 <- c('this.text', 'next.text')  # capitalize first letter t2 <- sub('^(\\w?)', '\\U\\1', t1, perl=T)  # remove points and capitalize following letter gsub('\\.(\\w?)', '\\U\\1', t2, perl=T) [1] "ThisText" "NextText" 

Edit: some explanations

sub('^(\\w?)', '\\U\\1', t1, perl=T), sub is sufficient here because we are only interested in the first match. Then the first alphanumeric character is matched at the beginning of each string with ^(\\w?). The parenthesis are needed for back reference in the replacement part of the function. For the replacement \\U is used to capitalize everything that comes afterwards (which is the first character).

The same principle is applied in gsub('\\.(\\w?)', '\\U\\1', t2, perl=T) with the only difference that not the first character is matched, but every ..