pathname <- system.file("exdata", "qstat.xml", package = "wyntonquery")
qstat <- read_qstat(pathname)
print(qstat)
## Anonymize (although actually already anonymized)
qstat_anon <- anonymize(qstat)
print(qstat_anon)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.