This document has code embedded throughout. In the next section we will create a visualization using the already loaded dataset eth_data:

datatable(eth_data, options = list(lengthMenu = c(3, 5, 10)))