## NOTE: 'saveJSONS' is set in the Parameters. 



if (!SKIP.EXPORT.TO.NEO)  {

  ## Verbose info. Display the number of NODES & RELS that we will be importing
  nodesAndRelsInfo()

  ## Optionally shuffle RELS, in case not all make it in, this gives us a mixed rep
  if (shuffleRelsPreImport)
     RELS.DT <- RELS.DT [sample(nrow(RELS.DT))]

  # Startup neo, if it is not yet running. Don't continue if cannot start
  if(neoCheckAndStart(fail.if.cant.start=TRUE))
    output <- 
      batchCreateNodesAndRels(NODES.DT, RELS.DT, nodes.idcol="node"
                      , use.labels=FALSE, addSerialNumberToRels=TRUE, saveAndUseContentObjects=saveJSONS, stream=TRUE)
      batchCreateNodesAndRels(NODES.DT, RELS.DT, nodes.idcol="node"
                      , use.labels=FALSE, addSerialNumberToRels=TRUE, saveAndUseContentObjects=saveJSONS
                      , save.output.to.global=FALSE, stream=TRUE) 

  if (stop.when.done && countNodes() != 0L)  {
    neoStop()
    if (start.gephi)
      system(paste("open", gephiApp))
  }
} #// end skip-import