library(RJSONIO)
test <- data.table(V1 = c(1.0, 2.0, 4.5, 3.0))
cat(toJSON(test))

{
  "V1": [ 1,  2,  4.5,  3 ]
}

{
  "V1": [ 1.0,  2.0,  4.5,  3.0 ]
}