minor documentation update

DESCRIPTION

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

R/patch.R

@@ -247,6 +247,9 @@ j_patch_from <-
 #' elements or adding `auto_unbox = TRUE` to `...`. Examples
 #' illustrate these different scenarios.
 #'
+#' @return `j_patch_op()` returns a character vector subclass that can
+#'     be used in `j_patch_apply()`.
+#'
 #' @examples
 #' ## helper for constructing patch operations from R objects
 #' j_patch_op(

R/rquerypivot.R

@@ -70,10 +70,8 @@ j_query <-
         data_type = j_data_type(data), path_type = j_path_type(path)
     )
 {
-    .j_valid(
-        data_type, object_names, path, path_type, n_records, verbose,
-        as %in% c("string", "R")
-    )
+    .j_valid(data_type, object_names, path, path_type, n_records, verbose)
+    stopifnot(as %in% c("string", "R"))
 
     data <- .as_json_string(data, data_type, ...)
     result <- do_cpp(
@@ -137,10 +135,8 @@ j_pivot <-
         data_type = j_data_type(data), path_type = j_path_type(path)
     )
 {
-    .j_valid(
-        data_type, object_names, path, path_type, n_records, verbose,
-        as %in% c("string", "R", "data.frame", "tibble")
-    )
+    .j_valid(data_type, object_names, path, path_type, n_records, verbose)
+    stopifnot(as %in% c("string", "R", "data.frame", "tibble"))
 
     data <- .as_json_string(data, data_type, ...)
     as0 <- ifelse(identical(as, "string"), "string", "R")