# NOT RUN {
# Please see this for more info.
# https://en.wikipedia.org/wiki/Caesar_cipher
caesar("Experience is the teacher of all things.")
caesar("HAshulhqfhclvcwkhcwhdfkhucricdoocwklqjva", decrypt = TRUE)
caesar("Veni, vidi, vici.", shift = 40)
caesar(",S1WKN9WRWKN9WQWL", shift = 40, decrypt = TRUE)
caesar("No one is so brave that he is not disturbed by something unexpected.", shift = -12)
caesar("Bc[cb:[,g[gc[{f]j:[h>]h[>:[,g[bch[;,ghif{:;[{m[gca:h>,b<[ib:ld:}h:;`",
shift = -12, decrypt = TRUE)
# }
Run the code above in your browser using DataCamp Workspace