Downloadable tables in RMarkdown with DT

What we are trying to get to is an interactive table with buttons that allow you to perform the following actions:

Copy to clipboard Export to CSV Export to Excel Export to PDF Print

library(leaflet)
library(widgetframe)

## Warning: package 'widgetframe' was built under R version 4.0.5

## Loading required package: htmlwidgets

## Warning: package 'htmlwidgets' was built under R version 4.0.5

l <- leaflet(height=300) %>% addTiles() %>% setView(0,0,1)
frameWidget(l)

library(dygraphs)
ts <- dygraph(nhtemp, main = "New Haven Temperatures",
              height=250, width='95%')
frameWidget(ts)