Scraping JSON link is not working using fromJSON(url) - r

Question

For web scraping I normally use the jsonlite::fromJSON(url) command which usually does the job for me. However this time it is inside another text.
Basically like this:
jQuery([
JSON stuff that I am more used to
]);
How do I get around this easily?
The actual data looks like this when I call the address (I have tapped it more pretty):
jQuery(
[
{"Date":"2019-05-31T00:00:00+02:00","FromTime":"2019-05-31T00:00:00+02:00","ToTime":"2019-05-31T00:15:00+02:00","Value":3315.9120000000003,"Value2":2584.244,"Value3":731.668},
{"Date":"2019-05-31T00:00:00+02:00","FromTime":"2019-05-31T00:15:00+02:00","ToTime":"2019-05-31T00:30:00+02:00","Value":3386.238,"Value2":2655.814,"Value3":730.424}
]
);
The errormessage I get when I try to make the function parse it is
Error in parse_con(txt, bigint_as_char) :
lexical error: invalid char in json text.
jQuery([{"Date":"2019-05-29T00:
(right here) ------^
End goal is just to have a dataframe to continue work on.

Answer 1

You can substr what you want from rvest return. It looks like jquery return will have start and end syntax
library(rvest)
library(jsonlite)
url <- 'https://ws.50hertz.com/web02/api/PhotovoltaicActual/ListRecords?filterDateTime=2019-05-30T22:23:14.716Z&callback=jQuery&_=1559254994256'
r <- read_html(url) %>%
html_node("p") %>%
html_text()
x <- jsonlite::fromJSON(substr(r[1], 8, nchar(r) - 2))