[Implementation] Better JSON creator

[ColinFay]

For now the way the JSON api call is kind of a hack, there must be a way to code it a better way.

I need to write something that looks exactly like :

{
  "statements" : [ {
    "statement" : "CREATE (n) RETURN id(n)"
  } ]
}

For now I'm doing :

to_json_neo <- function(query, include_stats, meta, type){
  toJSON(list(statement = query, includeStats = include_stats, meta = meta, resultDataContents = list(type)), auto_unbox = TRUE)
}

query_jsonised <- to_json_neo(query_clean, include_stats, meta, type)

body <- glue('{"statements" : [ %query_jsonised% ]}', .open = "%", .close = "%")