read.fitstab = function(file, hdu=2, strip = c(" ","'"," "), maxlines = 50000){
# read and return FITS table
dat = read.fits(file, hdu=hdu, comments=FALSE, strip=strip, maxlines=maxlines)
return(dat$dat[[1]]$table)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.