TERR Script giving error

After two days of poking around I finally found a solution to this.  If you look through the source code of the HTTR package you will see that when you call the POST function it calls another function called "request_prepare". This function sets the post or httpget to "TRUE" depending on whether the GET or POST function has been called.  As pointed out below TERR errors because it can't translate the TRUE value to a 1 or at least doesn't know a boolean can be treated as a numeric.  The solution is to replace request _prepare with your own version that sets the options not to a boolean but to an integer.  Note, this does not change the package permenately......you have to run this code everytime you call your function.

Put this code before any of your code........

request_prepare_new <- function(req) {
   req <- request_combine(request_default(), req)
 
 
   
   switch(req$method,
     GET =  req$options$httpget <- 1, #Values were orginally set to TRUE....this is the only thing change
     POST = req$options$post <- 1,    #Values were orginally set to TRUE....this is the only thing change
     req$options$customrequest <- req$method
   )
 
 
   # Sign request, if needed
   token <- req$auth_token
   if (!is.null(token)) {
     signed_req <- token$sign(req$method, req$url)
     stopifnot(is.request(signed_req))
     req <- c(req, signed_req)
  }
 
 
   req
 }

#Important step that makes sure the new function executes within the httr namespace

environment(request_prepare_new)= asNamespace('httr')

#This line of code replaces the old function with the new function
assignInNamespace("request_prepare",request_prepare_new,ns="httr",envir =getNamespace("httr"))

Hope this helps.