POST request with JSON in R giving bad request

Question

I\'m trying to integrate an API into my R script to format indentation in SQL queries. I\'m somehow getting a 400 bad response.

uri <- "https://sqlfor