Restructure body parsers to use content type. Add many parsers

NAMESPACE

@@ -2,8 +2,8 @@
 
 export(PlumberEndpoint)
 export(PlumberStatic)
-export(addParser)
 export(addSerializer)
+export(add_parser)
 export(do_configure_https)
 export(do_deploy_api)
 export(do_forward)
@@ -17,12 +17,15 @@ export(include_html)
 export(include_md)
 export(include_rmd)
 export(options_plumber)
+export(parser_csv)
 export(parser_json)
 export(parser_multi)
 export(parser_octet)
 export(parser_query)
 export(parser_rds)
+export(parser_read_file)
 export(parser_text)
+export(parser_tsv)
 export(parser_yaml)
 export(plumb)
 export(plumber)

NEWS.md

@@ -52,6 +52,8 @@ plumber 1.0.0
 
 * Added yaml support, serializer and parser. (@meztez, #556)
 
+* Added csv and tsv parsers (#584)
+
 * Added csv serializer (@pachamaltese, #520)
 
 * Added svg serializer (@pachamaltese, #398)

R/content-types.R

@@ -42,7 +42,9 @@ knownContentTypes <- list(
   dotx='application/vnd.openxmlformats-officedocument.wordprocessingml.template',
   xlam='application/vnd.ms-excel.addin.macroEnabled.12',
   xlsb='application/vnd.ms-excel.sheet.binary.macroEnabled.12',
-  rds='application/rds')
+  rds='application/rds',
+  tsv="text/tab-separated-values",
+  csv="text/csv")
 
 getContentType <- function(ext, defaultType='application/octet-stream') {
   ct <- knownContentTypes[[tolower(ext)]]

R/globals.R

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

R/json.R

@@ -1,8 +1,8 @@
 #' @importFrom jsonlite validate fromJSON toJSON
 #' @noRd
-safeFromJSON <- function(txt) {
+safeFromJSON <- function(txt, ...) {
   if (!validate(txt)) {
     stop("Argument 'txt' is not a valid JSON string.")
   }
-  fromJSON(txt)
+  fromJSON(txt, ...)
 }