R programmer for improving a crosstable function

Modify function to allow piping and improve speed

I modified the arguments to the function as requested so that it can be used with the "%>%" piping function (imported by dplyr from magrittr package). Internally I modified the code to create the contingency table; compute marginal totals and proportions, and create some of the text labels in the output. The new function has similar speed to the original for small tables (as in the examples of the documentation), but is faster for large tables as shown by the benchmarking above.