Nothing
identifyVisits <-
function(directory=directory,name.of.log.subjects)
{
list.subs <-read.csv(paste(directory,name.of.log.subjects,".csv",sep=""))
visit <- unique(as.character(list.subs$visit))
return(visit)
}
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.