fix a bunch of checks

Author: thomasp85

.Rbuildignore

@@ -6,3 +6,4 @@
 ^LICENSE\.md$
 ^[\.]?air\.toml$
 ^\.vscode$
+^vignettes/_ex*$

NAMESPACE

@@ -111,6 +111,7 @@ export(show_registered_parsers)
 export(show_registered_serializers)
 import(rlang)
 importFrom(R6,R6Class)
+importFrom(base64enc,base64decode)
 importFrom(fiery,Fire)
 importFrom(jsonlite,write_json)
 importFrom(ragg,agg_jpeg)

R/parsers.R

@@ -330,6 +330,7 @@ parse_geojson <- function(...) {
   }
 }
 #' @rdname parsers
+#' @param parsers A list of parsers to use for parsing the parts of the body
 #' @export
 #'
 parse_multipart <- function(parsers = get_parsers()) {

R/type_caster.R

@@ -54,6 +54,7 @@ type_caster <- function(schema, required, name, loc) {
 }
 
 caster_constructor <- function(coercer, ...) {
+  args <- list2(...)
   function(schema, required, name, loc) {
     error_string <- missing_required_error_string(name, loc)
     default <- schema$default
@@ -66,7 +67,7 @@ caster_constructor <- function(coercer, ...) {
         }
         NULL
       } else {
-        suppressWarnings(coercer(val, ...))
+        suppressWarnings(inject(coercer(val, !!!args)))
       }
     }
   }
@@ -76,14 +77,15 @@ number_caster <- caster_constructor(as.numeric)
 integer_caster <- caster_constructor(as.integer)
 bool_caster <- caster_constructor(as.logical)
 date_caster <- caster_constructor(as.Date, format = "%Y-%m-%d")
-datetime_caster <- caster_constructor(function(x) {
+datetime_caster <- caster_constructor(function(x, ...) {
   as.POSIXlt(
     sub(":(\\d\\d)$", "\\1", sub("Z$", "+0000", x)),
     format = "%FT%T%z"
   )
 })
-byte_caster <- caster_constructor(base64enc::base64decode)
-required_caster <- caster_constructor(identity)
+#' @importFrom base64enc base64decode
+byte_caster <- caster_constructor(base64decode)
+required_caster <- caster_constructor(function(x, ...) x)
 
 string_caster <- function(schema, required, name, loc) {
   switch(

man/parsers.Rd

@@ -1,10 +1,5 @@
 library(plumber2)
 
-knitr::opts_chunk$set(
-  collapse = FALSE,
-  comment = "#>"
-)
-
 code_chunk <- function(output, language=""){
   cat(paste0("```",language,"\n"))
   output <- switch(
@@ -26,6 +21,3 @@ code_chunk <- function(output, language=""){
 json_serialize <- function(obj){
   jsonlite::toJSON(obj, auto_unbox = FALSE, pretty = TRUE)
 }
-pretty_json_output <- function(x) {
-  code_chunk()
-}

vignettes/_helpers.R

@@ -1,5 +1,9 @@
 ---
 title: "Annotations reference"
+knitr:
+  opts_chunk:
+    collapse: false
+    comment: "#>"
 vignette: >
   %\VignetteIndexEntry{Annotations reference}
   %\VignetteEngine{quarto::html}
@@ -360,6 +364,6 @@ use_swagger
 
 ```{r}
 #| output: false
-api() %>%
+api() |>
   api_doc_setting("swagger")
 ```

vignettes/annotations.qmd

@@ -1,5 +1,9 @@
 ---
 title: "Runtime"
+knitr:
+  opts_chunk:
+    collapse: false
+    comment: "#>"
 vignette: >
   %\VignetteIndexEntry{Runtime}
   %\VignetteEngine{quarto::html}

vignettes/execution-model.qmd

@@ -1,5 +1,9 @@
 ---
 title: "Hosting"
+knitr:
+  opts_chunk:
+    collapse: false
+    comment: "#>"
 vignette: >
   %\VignetteIndexEntry{Hosting}
   %\VignetteEngine{quarto::html}

vignettes/hosting.qmd

@@ -1,5 +1,9 @@
 ---
 title: "Introduction"
+knitr:
+  opts_chunk:
+    collapse: false
+    comment: "#>"
 vignette: >
   %\VignetteIndexEntry{Introduction}
   %\VignetteEngine{quarto::html}