R/request.R

In jug: A Simple Web Framework for R

#' Request class
Request<-
  R6::R6Class("Request",
          public=list(
            params=list(),
            headers=list(),
            path=NULL,
            method=NULL,
            raw=NULL,
            content_type=NULL,
            protocol="http",
            body=NULL,
            attach=function(key, value) self$params[[key]]<-value,

            get_header=function(key) self$headers[[key]],
            set_header=function(key, value) self$headers[[key]]<-value,
            add_params=function(named_list) self$params<-c(self$params, named_list),

            initialize=function(req){
              self$raw<-req
              self$path<-req$PATH_INFO
              self$method<-toupper(req$REQUEST_METHOD)

              if(length(req$CONTENT_TYPE)>0) self$content_type<-tolower(req$CONTENT_TYPE)

              self$body<-paste0(req$rook.input$read_lines(),collapse = "")
              self$params<-parse_params(req, self$body, req$QUERY_STRING, self$content_type)

              header_keys<-Filter(function(x) grepl("^HTTP", x), names(req))
              self$headers<-as.list(req)[header_keys]
              names(self$headers)<-Map(function(x) tolower(gsub("^HTTP_", "", x)), names(self$headers))

              if(any(tolower(self$get_header("upgrade"))=="websocket")){
                self$protocol<-"websocket"
              }

            }
          )
  )