require(Hmisc)
getHdata(pbc)
f <- '/tmp/z.html'
cat('', file=f)
html(contents(pbc), levelType='table')
d <- describe(pbc)
html(d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.