如何将.js或.json数据从特定URL拉入R数据框

我一直在尝试从这个特定的URL中提取数据：使用RJSONIO。我转到那个URL并通过按CTRL+A选择那里的所有数据来保存数据，然后将其粘贴到notepad++，并将其保存为test.json。以下是我从那一点开始在R中尝试的内容：

library(RJSONIO)
json_file <- dir("test.json")
jsonIntoR <- fromJSON(readLines(json_file)[1])

我想将此URL上的数据转换为数据帧，但无法克服此错误。我尝试过在这个链接上使用这个解决方案：但它对我不起作用。谢谢您的帮助。

不要使用

阅读行（…）

库（rjson）
图书馆（httr）
网址
Error in fromJSON(readLines(json_file)[1]) : 
    error in evaluating the argument 'content' in selecting a method for function 'fromJSON': Error in file(con, "r") : invalid 'description' argument

library(rjson)
library(httr)
url <- "http://leafletjs.com/examples/us-states.js"
text <- content(GET(url),type="text")
text <- sub("var statesData = ","",text)
text <- sub(";$","",text)
json <- fromJSON(text)