Nothing
if (getRversion() >= '2.15.1') globalVariables(c('top', 'chisqTestVariable', 'chisqComponentsVariable',
'expFreqVariable', 'fisherTestVariable', 'indicatorsVariable', 'percentsVariable', 'percentsFrame',
'testsFrame', 'indicatorsFrame', 'buttonsFrame', '.TableOriginal', 'decimals', '.Test', 'fncFastTestT',
'subsetVariable', 'subsetFrame'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.