Rmorfer:

#' Retrieve a Java instance of Morfer
#' @param rLibraryPath path which point to text file
#' @return a Java instance of Morfer
#' @export
#'
getMorfer <- function(rLibaryPath) {
  .jaddClassPath('inst/java/Morfer-lib-1.0-SNAPSHOT-jar-with-dependencies.jar')
  return (.jnew('uek/nlp/Morfer', rLibaryPath))
}

#' Retrieve  a Java File object for specific path
#' @param filepath path which point to text file
#' @return an File object wich represent specific file
#' @export

getFileData <- function(filepath) {
  return(.jnew('java/io/File', filepath))
}

#' Retrieve  array which represent plain data return by morfeusz library
#' @param morfer instance of morfer which make analyze
#' @param text_to_analyze data
#' @return an array in which every element represent one line from morfeusz result
#' @export
analyzeToArray <- function(morfer, data) {
  resultArray <- .jcall(morfer, "[S", "analyzeToArray", data)
  print(resultArray)
}

#' Retrieve  CSV string which represent data return by morfeusz library
#' @param morfer instance of morfer which make analyze
#' @param text_to_analyze data
#' @return an array in which every element represent one line from morfeusz result
#' @export
analyzeToCSV <- function(morfer, data) {
  resultArray <- .jcall(morfer, "S", "analyzeToCSV", data)
  headers <- c("indexA", "indexB", "word", "lemma", "interpretation", "additionalProperty")
  headers <- paste(paste(unlist(headers), collapse=';'), "\n", collapse='')
  text <- paste(headers,resultArray,collapse='')
  table <- read.csv(textConnection(text), sep = ";")
  print(table)
}

#' Retrieve JSON data which represent plain data return by morfeusz library
#' @param morfer instance of morfer which make analyze
#' @param text_to_analyze data
#' @return an array in which every element represent one line from morfeusz result
#' @export
analyzeToJSON <- function(morfer, data) {
  resultArray <- .jcall(morfer, "S", "analyzeToJSON", data)
  print(fromJSON(resultArray))
}