Nothing
#' Function for querying metamaps DB
#'
#' Takes variable queries with table output ie. no nodes no rels (simpler version of DBquery gives a list)
#'
#' @param query cypher query
#' @param params string containing cypher query
#' @param cypherurl address of database, inclusive of ports
#' @param user database username
#' @param password database password
#' @param ... accepts additional parameters from external function calls
#' @export
listquery<-function(query,params = FALSE, cypherurl, user, password,...){
#Checks if the params is given
if(is.list(params)){
post = RJSONIO::toJSON(list(query = query, params = params))
}else{
post = RJSONIO::toJSON(list(query = query))
}
key <- base64enc::base64encode(charToRaw(paste(user, password, sep=":")))
result = RJSONIO::fromJSON(RCurl::getURL(
cypherurl,
customrequest = "POST",
httpheader = c('Content-Type' = 'application/json', 'Authorization' = paste('Basic', key)),
postfields = post))
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.