## ----echo = FALSE, message = FALSE, warning = FALSE---------------------------
library(rothfreezer)
library(DT)
library(dplyr)
src_rothfreezer() %>%
tbl('primers') %>%
collect %>%
datatable(filter = 'top')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.