Nothing
setConstructorS3("GenericDataFileList", function(dfList=list(), ...) {
# Argument 'dfList':
if (is.list(dfList)) {
className <- "GenericDataFile"
for (kk in seq_along(dfList)) {
df <- dfList[[kk]]
if (!inherits(df, className)) {
throw(sprintf("Element #%d of argument 'dfList' is not of class %s: ", kk, class(df)[1]))
}
}
} else {
throw("Argument 'dfList' is not a list: ", dfList)
}
extend(dfList, "GenericDataFileList")
})
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.