Add HTML and javascript code to flexdashboard in R

Question

I have the following code which creates a flexdashboard:

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns