A R-Sweave document to make a Casear shift cipher disc