Create factsheetgenerator.R

Makes a factsheet