How do I use the JS datatables API in r shiny