R/rsmartcn.R

In rsmartcn: R interface to the Java Chinese word segmentation system of smartcn

## Chinese Word Segmentation
## This is part of rsmartcn

#.onAttach <- function(...) {
#    .jinit(system.file("plugins","rsmartcn.jar",package="rsmartcn"))
#}

.onLoad <- function(libname, pkgname) {
       rJava:::.jpackage(pkgname, lib.loc=libname)
       ## must use full access of :::
     }

smartcn <- function (text, useStopWord = TRUE)
{
    if ( !inherits(text, "character") ) stop ("text should be character vector")
    oriClass <- class(text)
    smartcn <- .jnew("rsmartcn.rsmartcn")
    stopWord <- .jnew("java.lang.Boolean", ifelse(useStopWord, "true", "false"))
    N <- length(text)
    Rval <- vector(mode = "character", length = N)
    for (i in seq_len(N)){
        ans <- smartcn$Seg(text[i], stopWord$booleanValue())
        Encoding(ans) <- "UTF-8"
        Rval[i] <- ans
    }
    class(Rval) <- oriClass
    Rval
}