Как преобразовать not.camel.case в CamelCase в R

В R я хочу преобразовать

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

к

'ThisText' 'NextText'

Я пробовал

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

Но это дает мне

"thisext" "nextext"

так как он не заменяет букву после точки.

Наверное, очень просто, но я не могу решить это.