1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#' Parse http request
#'
#' Parse the body of a http request, based on the `Content-Type` request
#' header. Currently supports the three most important content types:
#' `application/x-www-form-urlencoded` with [parse_query()],
#' `multipart/form-data` with [parse_multipart()], and `application/json`
#' with [jsonlite::fromJSON()].
#'
#' @export
#' @param body request body of the http request
#' @param content_type content-type http request header as specified by the client
#' @param ... additional arguments passed to parser function
#' @importFrom jsonlite fromJSON
#' @examples # Parse json encoded payload:
#' parse_http('{"foo":123, "bar":true}', 'application/json')
#'
#' # Parse url-encoded payload
#' parse_http("foo=1%2B1%3D2&bar=yin%26yang", "application/x-www-form-urlencoded")
#'
#' \dontrun{use demo app to parse multipart/form-data payload
#' demo_rhttpd()
#' }
parse_http <- function(body, content_type, ...){
# Remove header name if present
content_type <- sub("Content-Type: ?", "", content_type, ignore.case=TRUE);
# Switch by content-type
if(grepl("multipart/form-data;", content_type, fixed = TRUE)){
return(parse_multipart(body, get_boundary(content_type)))
} else if(grepl("application/x-www-form-urlencoded", content_type, fixed=TRUE)){
return(parse_query(body))
} else if(grepl("(text|application)/json", content_type)){
if(is.raw(body))
body <- rawToChar(body)
return(fromJSON(body, ...))
} else {
stop("Unsupported Content-Type: ", content_type)
}
}
|
