尝试 Webscrape 时 R 中的 PhantomJS 错误

如何解决尝试 Webscrape 时 R 中的 PhantomJS 错误

这是我的代码，我在下面写了输出错误，希望得到一些关于如何解决这个问题的建议。谢谢。

library(rvest)
library(xml2)
library(dplyr)
library(purrr)

setwd(/Users/user/Desktop/Coding/Scraping)

url<-("http://www.mmadecisions.com/decisions-by-judge/A")
connection<-"mmadecisions.js"

writeLines(sprintf("var page = require('webpage').create();
page.open('%s',function(){
console.log(page.content);//page source
phantom.exit();
});",url),con=connection)

这是错误：

writeLines(sprintf("var page = require('webpage').create();
+ page.open('%s',function(){
+ console.log(page.content);//page source
+ phantom.exit();
+ });",con=connection)
Error in as.character(function (description,open = "",blocking = TRUE,: 
  cannot coerce type 'closure' to vector of type 'character'