powered by
cap1(x)
uncappedtitle <- "this title" cappedtitle <- cap1(uncappedtitle)
Run the code above in your browser using DataLab