Assignment 3 - Extra Credit

library(stringr)
codestring = 'clcopCow1zmstc0d87wnkig7OvdicpNuggvhryn92Gjuwczi8hqrfpRxs5Aj5dwpn0Tanwo
Uwisdij7Lj8kpf03AT5Idr3coc0bt7yczjatOaootj55t3Nj3ne6c4Sfek.r1w1YwwojigO
d6vrfUrbz2.2bkAnbhzgv4R9i05zEcrop.wAgnb.SqoU65fPa1otfb7wEm24k6t3sR9zqe5
fy89n6Nd5t9kc4fE905gmc4Rgxo5nhDk!gr'

## Trial Patterns
capitalizationpattern = str_extract_all(codestring,'[[:upper:]][[:alpha:]]{2}')
print(capitalizationpattern)

## [[1]]
##  [1] "Cow" "Ovd" "Nug" "Gju" "Rxs" "Tan" "Uwi" "Idr" "Oao" "Sfe" "Yww"
## [12] "Urb" "Anb" "Ecr" "Agn" "Sqo" "Rgx"

lowercasepattern = str_extract_all(codestring,'cop|crop')
print(lowercasepattern)

## [[1]]
## [1] "cop"  "crop"

uppercaseletterstrial = str_extract_all(capitalizationpattern,'[[:upper:]]')
print(uppercaseletterstrial)

## [[1]]
##  [1] "C" "O" "N" "G" "R" "T" "U" "I" "O" "S" "Y" "U" "A" "E" "A" "S" "R"

## Hidden Message

hiddenmessageuppercaseletters = unlist(str_extract_all(codestring,'[[:upper:]]'))


hiddenmessage =  paste(paste(hiddenmessageuppercaseletters[1:15],collapse = ""),paste(hiddenmessageuppercaseletters[16:18],collapse = ""),paste(hiddenmessageuppercaseletters[19:21],collapse=""),hiddenmessageuppercaseletters[22],paste(hiddenmessageuppercaseletters[23:31],collapse=""),sep = " ")
print(hiddenmessage)

## [1] "CONGRATULATIONS YOU ARE A SUPERNERD"