Nik*_*lin 13
此链接可能会有所帮助.我将在接下来的几天内将ne04j与R连接起来,并将首先尝试使用提供的链接.希望能帮助到你.
我试了一下,效果很好.这是有效的功能:首先,安装并加载包然后执行功能:
install.packages('RCurl')
install.packages('RJSONIO')
library('bitops')
library('RCurl')
library('RJSONIO')
query <- function(querystring) {
h = basicTextGatherer()
curlPerform(url="localhost:7474/db/data/ext/CypherPlugin/graphdb/execute_query",
postfields=paste('query',curlEscape(querystring), sep='='),
writefunction = h$update,
verbose = FALSE
)
result <- fromJSON(h$value())
#print(result)
data <- data.frame(t(sapply(result$data, unlist)))
print(data)
names(data) <- result$columns
}
Run Code Online (Sandbox Code Playgroud)
这是一个调用函数的例子:
q <-"start a = node(50) match a-->b RETURN b"
data <- query(q)
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
6433 次 |
最近记录: |