Work in progress, combined PR

DESCRIPTION

@@ -8,6 +8,7 @@ Authors@R: c(
   person(family = "RStudio", role = c("cph", "fnd")),
   person("Jeff", "Allen", role="cre", email="cran@trestletech.com"),
   person("Barret", "Schloerke", role="aut", email="barret@rstudio.com"),
+  person("Bruno", "Tremblay", role="ctb", email="bruno.tremblay@lacapitale.com"),
   person("Frans", "van Dunné", role="ctb", email="frans@ixpantia.com"),
   person("Sebastiaan", "Vandewoude", role="ctb", email="sebastiaanvandewoude@gmail.com"),
   person(family="SmartBear Software", role=c("ctb", "cph"), comment="swagger-ui"))
@@ -40,41 +41,45 @@ Suggests:
     htmlwidgets,
     visNetwork,
     analogsea (>= 0.7.0),
-    later
+    later,
+    redoc
 Remotes:
+    meztez/redoc,
     rstudio/swagger
 Collate:
     'async.R'
     'content-types.R'
     'cookie-parser.R'
-    'parse-globals.R'
+    'plumb-globals.R'
     'images.R'
-    'parse-block.R'
+    'plumb-block.R'
     'globals.R'
     'serializer-json.R'
     'shared-secret-filter.R'
-    'post-body.R'
-    'query-string.R'
+    'parse-body.R'
+    'parse-query.R'
     'plumber.R'
     'default-handlers.R'
     'digital-ocean.R'
     'find-port.R'
     'includes.R'
     'json.R'
     'new-rstudio-project.R'
+    'openapi-spec.R'
+    'openapi-types.R'
+    'parsers-body.R'
     'paths.R'
+    'plumber-response.R'
     'plumber-static.R'
     'plumber-step.R'
-    'post-parsers.R'
-    'response.R'
     'serializer-content-type.R'
     'serializer-html.R'
     'serializer-htmlwidget.R'
     'serializer-rds.R'
     'serializer-xml.R'
     'serializer.R'
     'session-cookie.R'
-    'swagger.R'
+    'ui.R'
     'utf8.R'
     'zzz.R'
 RoxygenNote: 7.1.0

NAMESPACE

@@ -36,10 +36,8 @@ import(R6)
 import(crayon)
 import(promises)
 import(stringi)
-importFrom(httpuv,runServer)
 importFrom(jsonlite,fromJSON)
 importFrom(jsonlite,toJSON)
 importFrom(jsonlite,validate)
 importFrom(stats,runif)
-importFrom(stringi,stri_match_first_regex)
 importFrom(webutils,parse_multipart)

NEWS.md

@@ -42,7 +42,7 @@ plumber 0.5.0
 
 ### New features
 
-* Added Swagger support for array parameters using syntax `name:[type]` and new type `list` (synonym df, data.frame). (@meztez, #532) 
+* Added Swagger support for array parameters using syntax `name:[type]` and new type `list` (synonym df, data.frame). (@meztez, #532)
 
 * Added support for promises in endpoints, filters, and hooks. (#248)
 
@@ -75,6 +75,8 @@ plumber 0.5.0
 
 * Modified images serialization to use content-type serializer. Fixes issue with images pre/postserialize hooks (@meztez, #518).
 
+* Fix bug in setting openapi.json url when HTTP_REFERER is null (@meztez, #528)
+
 * Fix possible bugs due to mounted routers without leading slashes (@atheriel, #476 #501).
 
 * Fix bug preventing error handling when a serializer fails (@antoine-sachet, #490)

R/content-types.R

@@ -52,7 +52,6 @@ getContentType <- function(ext, defaultType='application/octet-stream') {
   return(ct)
 }
 
-#4x perf improvement when contentType is set
 #' Request character set
 #' @param contentType Request Content-Type header
 #' @return Default to `UTF-8`. Otherwise return `charset` defined in request header.

R/default-handlers.R

@@ -1,6 +1,6 @@
 #' @include plumber.R
 default404Handler <- function(req, res){
-  res$status <- 404
+  res$status <- 404L
   list(error="404 - Resource Not Found")
 }
 

R/globals.R

@@ -2,3 +2,4 @@
 .globals$serializers <- list()
 .globals$processors <- new.env()
 .globals$parsers <- list(func = list(), pattern = list())
+.globals$interfaces <- list()