Nothing
      test_flowRep.ls <- function() {
    ## Not much useful testing as we don't know what 
    ## FlowRepository datasets are (will be) available.
    ## So we will just check that there are at least 50 different datasets
    checkTrue(length(flowRep.ls()) > 50)
}
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.