1 2make_req <- function(verb, path, qs="", body=""){ 3 req <- new.env() 4 req$REQUEST_METHOD <- toupper(verb) 5 req$PATH_INFO <- path 6 req$QUERY_STRING <- qs 7 req$rook.input <- list(read_lines = function(){ body }) 8 req 9} 10