if (FALSE) {
x <- HttpClient$new(url = "https://hb.opencpu.org")
# a named list
x$post(path='post', body = list(hello = "world"))
# a string
x$post(path='post', body = "hello world")
# an empty body request
x$post(path='post')
# encode="form"
res <- x$post(path="post",
  encode = "form",
  body = list(
    custname = 'Jane',
    custtel = '444-4444',
    size = 'small',
    topping = 'bacon',
    comments = 'make it snappy'
  )
)
jsonlite::fromJSON(res$parse("UTF-8"))
# encode="json"
res <- x$post("post",
  encode = "json",
  body = list(
    genus = 'Gagea',
    species = 'pratensis'
  )
)
jsonlite::fromJSON(res$parse())
}
Run the code above in your browser using DataLab