r - rjson: `list` を Cypher DSL と互換性のある JSON のような文字列に変換します

Question

持ってみましょう：

desired_output="{a:'1', b:'foo'}"
D = list(a=1, b="foo")

それで：

out = toJSON(D)
out
"{\"a\":1,\"b\":\"foo\"}"

identical(out, desired_output) # FALSE

fこれが成立するように（ 以外に）より良い関数はありgsubますか？

identical( f(toJSON(D)), desired_output) == TRUE

cat画面に印刷するだけです：

cat(toJSON(D))
{"a":1,"b":"foo"}

バックグラウンド：

文字列の形式は、次のような呼び出しのパッケージをdesired_output使用して cypher/Neo4j グラフ データベース クエリを動的に構築するために必要です。RNeo4j

# match node n with properties a=1 and b="foo"
RNeo4j::cypher(graph, query="MATCH (n{a:'1', b:'foo'}) RETURN n")