Patch the infinite recursion of asJSON on subclasses of vctrs_vctr in…

…stances.

DESCRIPTION

@@ -21,14 +21,16 @@ Description: A reasonably fast JSON parser and generator, optimized for statisti
     functions to stream, validate, and prettify JSON data. The unit tests included 
     with the package verify that all edge cases are encoded and decoded consistently 
     for use with dynamic data in systems and applications.
+Imports:
 Suggests:
     httr,
     vctrs,
     testthat,
     knitr,
     rmarkdown,
     R.rsp,
-    sf
-RoxygenNote: 7.2.3
+    sf,
+    vctrs 
+RoxygenNote: 7.3.1
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -3,6 +3,7 @@
 S3method("[",json)
 S3method(print,json)
 S3method(print,scalar)
+S3method(vec_proxy_json,vctrs_vctr)
 export(as_gzjson_b64)
 export(as_gzjson_raw)
 export(base64_dec)
@@ -25,6 +26,7 @@ export(toJSON)
 export(unbox)
 export(unserializeJSON)
 export(validate)
+export(vec_proxy_json)
 export(write_json)
 import(methods)
 useDynLib(jsonlite,C_collapse_array)

R/asJSON.vctrs.R

@@ -1,5 +1,21 @@
 setMethod("asJSON", "vctrs_vctr", function(x, ...) {
-  # dispatch based on the underlying type
-  class(x) <- setdiff(class(x), 'vctrs_vctr')
-  asJSON(x, ...)
+  tryCatch(
+    {
+      asJSON(vec_proxy_json(x), ...)
+    },
+    error = function(cond) {
+      selectMethod(asJSON, "ANY")(x)
+    }
+  )
 })
+
+#' @export
+vec_proxy_json <- function(x) {
+  UseMethod("vec_proxy_json", x)
+}
+
+#' @export
+vec_proxy_json.vctrs_vctr <- function(x) {
+  class(x) <- setdiff(class(x), "vctrs_vctr")
+  x
+}

jsonlite.Rproj

@@ -17,3 +17,4 @@ StripTrailingWhitespace: Yes
 
 BuildType: Package
 PackageInstallArgs: --no-multiarch --with-keep.source --install-tests
+PackageRoxygenize: rd,collate,namespace