R/DSD_SubspaceARFFStream.R

In matthhan/rsubspaceMOA: Interface to 'subspaceMOA'

#'Stream Subspace Instances from Disc
#'
#'A DSD object to stream Data Points from a .arff file.
#'@param file a string that contains the path to the file
#'@export
DSD_SubspaceARFFStream <- function(file) {
  jref <- rJava::.jcall("moa/r_interface/RCompatibleDataStream",
                        returnSig="Lmoa/r_interface/RCompatibleDataStream;",
                        method="subspaceArff",
                        file)
  
  numAtts <- rJava::.jcall(jref,"I","getNumAtts")
  res <- structure(list(description="A data stream read from a file.",
                        javaObj=jref,d=numAtts
  ),
  class=c("DSD_SubspaceARFFStream","DSD_SubspaceMOA","DSD"))
  
  return(res)
}