bug fix: JSON j_pivot() connection

Author: mtmorgan

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: rjsoncons
 Title: 'C++' Header-Only 'jsoncons' Library for 'JSON' Queries
-Version: 1.2.0
+Version: 1.2.0.9000
 Authors@R: c(
     person(
         "Martin", "Morgan", role = c("aut", "cre"),

NEWS.md

@@ -1,3 +1,7 @@
+# rjsoncons 1.3.0
+
+- (1.2.0.9000) bug fix: support JSON `j_pivot()` file / url connections
+
 # rjsoncons 1.2.0
 
 - (1.1.0.9500) update documentation, include NDJSON-specific, web-only

R/json.R

@@ -32,6 +32,7 @@ json_pivot <-
     if (identical(data_type, "R"))
         data_type <- "json"
 
+    data_type <- head(data_type, 1L)
     as0 <- ifelse(identical(as, "string"), as, "R")
     ex <- cpp_r_json_init(object_names, path, as0, data_type, path_type)
     cpp_r_json_pivot(ex, data, object_names)

inst/tinytest/test_j_query.R

@@ -120,4 +120,20 @@ expect_identical(
     '{"name":["Seattle"],"state":["WA"]}'
 )
 
+expect_identical(
+    j_pivot(json_file, "locations[]", as = "R"),
+    list(
+        name = c("Seattle", "New York", "Bellevue", "Olympia"), 
+        state = c("WA", "NY", "WA", "WA")
+    )
+)
+
+expect_identical(
+    j_pivot(ndjson_file, "", as = "R"),
+    list(
+        name = c("Seattle", "New York", "Bellevue", "Olympia"), 
+        state = c("WA", "NY", "WA", "WA")
+    )
+)
+
 expect_error(j_pivot(json, "locations[0].name"))