Nothing
if (getRversion() >= '2.15.1') globalVariables(c('BWS2attributes',
'buttonsFrame', 'dceDesign', 'lettertypeFrame', 'lettertypeVariable',
'modeltypeFrame', 'modeltypeVariable', 'positiontypeFrame',
'positiontypeVariable', 'responsetypeVariable', 'rhsVars',
'scoretypeFrame', 'scoretypeVariable', 'subsetFrame', 'subsetVariable',
'top'))
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.