filepath <- file.path('other', "gbpri10.seq")
records <- restez:::flatfile_read(filepath)
records <- sample(records, 25)
save(records, file = file.path('data', 'records.rda'), compress = 'xz')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.