Ошибка: лексическая ошибка: неверный символ в тексте json., После создания правильного соединения с R

Question

Я хочу извлечь информацию со страницы в Интернете, но когда я пытаюсь использовать функцию fromJSON, у меня возникает ошибка, не могли бы вы сообщить мне, если мне нужно что-то изменить в моем коде. Спасибо

library(httr)
library(jsonlite)
library(stringr)


set_config(use_proxy(url="webproxy-ain154.com",port=8080))
BaseURL <- "https://cleaneddata.speedwellweather.com"


# FIRST THIS SHOWS HOW TO RETRIEVE THE LIST OF ELEMENTS

endpoint <- "GetElementList"
RequestBody <- list (IsIncludeDailyHisto=1 , IsIncludeHourlyForecast=0 , IsIncludeHourlyHisto=1, IsIncludeDailyForecast=0)

ElementList_URL <- paste(BaseURL, endpoint, sep="")

get_Elements <- POST(url = ElementList_URL, 
    add_headers(Authorization="Agr24Crt:St34@Ul#"), 
    encode = "json",
    accept_json(),
    body = RequestBody, 
    #authenticate(user = LoginName , password = LoginPassword, type = "basic"), 
    verbose())

get_Elements_text <- content(get_Elements, "text")
get_Elements_json <- fromJSON(get_Elements_text, flatten = TRUE)
get_Elements_df <- as.data.frame(get_Elements_json)

Это ошибка

> get_Elements_json <- fromJSON(get_Elements_text, flatten = TRUE)
Error: lexical error: invalid char in json text.
                                       <Fault xmlns="http://schemas.mi
                     (right here) ------^