Nothing
pirls.table <-
function(variable, by, data, export=FALSE, name= "output", folder=getwd()) {
output <- intsvy.table(variable, by, data, config=pirls_conf)
if (export) {
write.csv(output, file=file.path(folder, paste(name, ".csv", sep="")))
}
return(output)
}
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.