I cannot reproduce the problem with renderDataTable(), although you
did not say how you created the DataTable:
library(shiny)
runApp(list(
ui = fluidPage(dataTableOutput('foo')),
server = function(input, output) {
output$foo = renderDataTable(data.frame(x = c(183, 130, -87, -52, -49)))
}
))
Regards,
Yihui