Merge pull request #16 from victorlaerte/master

Add method to restore previous saved model

mallet/NAMESPACE

@@ -9,6 +9,7 @@ export(mallet.subset.topic.words)
 export(mallet.top.words)
 export(mallet.topic.hclust)
 export(mallet.topic.labels)
+export(mallet.topic.load)
 export(mallet.topic.words)
 export(mallet.word.freqs)
 export(save.mallet.state)

mallet/R/mallet.R

@@ -433,13 +433,24 @@ mallet.topic.hclust <- function(doc.topics, topic.words, balance = 0.3) {
   stats::hclust(balance * stats::dist(topic.words) + (1.0 - balance) * stats::dist(topic.docs))
 }
 
-
+#' @title 
+#' Load a topic from a file
+#' 
+#' @description 
+#' This function returns the topic model loaded from a file.
+#' 
+#' @param filename
+#' The mallet topic file
+#' 
+#' @export
+mallet.topic.load <- function(filename) {
+  rJava::J("cc/mallet/topics/RTopicModel")$read(rJava::.jnew("java/io/File", filename))
+}
 
 save.mallet.instances <- function(instances, filename) {
   instances$save(rJava::.jnew("java/io/File", filename))
 }
 
-
 load.mallet.instances <- function(filename) {
   rJava::J("cc.mallet.types.InstanceList")$load(rJava::.jnew("java/io/File", filename))
 }