To be able to evaluate options passed to DataTables

This is an attempt to solve an FAQ about datatables: users are unable to pass JS functions from R. Elements in the options that were produced from `I()` will be evaluated in JS.

An example:

```s
runApp(list(
  ui = fluidPage(dataTableOutput('foo')),
  server = function(input, output) {
    output$foo = renderDataTable(
      iris,
      options = list(fnRowCallback = I('
        (function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {
          // Bold cells for those >= 5 in the first column
          if (parseFloat(aData[0]) >= 5.0)
            $("td:eq(0)", nRow).css("font-weight", "bold");
        })')
      )
    )
  }
))
```

Thoughts? @jcheng5