sdk/R/R/HttpParser.R

   1 #' HttpParser
   2 #'
   3 HttpParser <- setRefClass(
   4
   5     "HttrParser",
   6
   7     fields = list(
   8     ),
   9
  10     methods = list(
  11         initialize = function()
  12         {
  13         },
  14
  15         parseCollectionGet = function(server_response)
  16         {
  17             #Todo(Fudo): Implement proper server code checking
  18             #if(server_response$response_code != 200)
  19                 #stop("Error");
  20
  21             parsed_response <- httr::content(server_response, as = "parsed", type = "application/json")
  22
  23             #Todo(Fudo): Create new Collection object and populate it
  24         }
  25     )
  26 )