getExampleData <- function(dbg = FALSE)
{
readEuCodedFile(input.file = getExampleFile(), dbg = dbg)
}
getExampleFile <- function()
{
extdataFile("example_13508_2.txt")
}
extdataFile <- kwb.utils::createFunctionExtdataFile("kwb.en13508.2")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.