R Shiny + d3js: data table