print.fstparts <- function(x, ...){
cat( "Data parts '", x$name, "':\n"
, " rows: ", nrow(x)
, ", parts: ",length(x$parts)
, ", dir: '", x$dir, "'"
, "\n"
, sep= "")
print(data.table::data.table(head(x)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.