Rcpps.R
In jiebaR: Chinese Text Segmentation

# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

#' @title Files encoding detection
#' @description The function detect the encoding of input files.
#' @param file A file path.
#' @return The encoding of file
#' @author Wu Yongwei, Qin wenfeng
#' @references \url{https://github.com/adah1972/tellenc}
#' @export
filecoding <- function(file) {
    .Call('api_jiebaR_filecoding', PACKAGE = 'jiebaRapi', file)
}

mp_ptr <- function(dict, user, stop) {
    .Call('api_jiebaR_mp_ptr', PACKAGE = 'jiebaRapi', dict, user,stop)
}

mp_cut <- function(x, cutter) {
    .Call('api_jiebaR_mp_cut', PACKAGE = 'jiebaRapi', x, cutter)
}

mix_ptr <- function(dict, model, user, stop) {
    .Call('api_jiebaR_mix_ptr', PACKAGE = 'jiebaRapi', dict, model, user, stop)
}

mix_cut <- function(x, cutter) {
    .Call('api_jiebaR_mix_cut', PACKAGE = 'jiebaRapi', x, cutter)
}

query_ptr <- function(dict, model, n, stop) {
    .Call('api_jiebaR_query_ptr', PACKAGE = 'jiebaRapi', dict, model, n, stop)
}

query_cut <- function(x, cutter) {
    .Call('api_jiebaR_query_cut', PACKAGE = 'jiebaRapi', x, cutter)
}

hmm_ptr <- function(model, stop) {
    .Call('api_jiebaR_hmm_ptr', PACKAGE = 'jiebaRapi', model,stop)
}

hmm_cut <- function(x, cutter) {
    .Call('api_jiebaR_hmm_cut', PACKAGE = 'jiebaRapi', x, cutter)
}

tag_ptr <- function(dict, model, user, stop) {
    .Call('api_jiebaR_tag_ptr', PACKAGE = 'jiebaRapi', dict, model, user,stop)
}

tag_tag <- function(x, cutter) {
    .Call('api_jiebaR_tag_tag', PACKAGE = 'jiebaRapi', x, cutter)
}

tag_file <- function(x, cutter) {
    .Call('api_jiebaR_tag_file', PACKAGE = 'jiebaRapi', x, cutter)
}

key_ptr <- function(n, dict, model, idf, stop,user) {
    .Call('api_jiebaR_key_ptr', PACKAGE = 'jiebaRapi', n, dict, model, idf, stop, user)
}

key_tag <- function(x, cutter) {
    .Call('api_jiebaR_key_tag', PACKAGE = 'jiebaRapi', x, cutter)
}

key_cut <- function(x, cutter) {
    .Call('api_jiebaR_key_cut', PACKAGE = 'jiebaRapi', x, cutter)
}

key_keys <- function(x, cutter) {
    .Call('api_jiebaR_key_keys', PACKAGE = 'jiebaRapi', x, cutter)
}

sim_ptr <- function(dict, model, idf, stop, user) {
    .Call('api_jiebaR_sim_ptr', PACKAGE = 'jiebaRapi', dict, model, idf, stop, user)
}

sim_sim <- function(code, topn, cutter) {
    .Call('api_jiebaR_sim_sim', PACKAGE = 'jiebaRapi', code, topn, cutter)
}

sim_distance <- function(lhs, rhs, topn, cutter) {
    .Call('api_jiebaR_sim_distance', PACKAGE = 'jiebaRapi', lhs, rhs, topn, cutter)
}

jieba_ptr <- function(dict, model, user, stop) {
  .Call('api_jiebaR_jiebaclass_ptr', PACKAGE = 'jiebaRapi', dict, model, user, stop)
}

jieba_mix_cut <- function(x, cutter) {
  .Call('api_jiebaR_jiebaclass_mix_cut', PACKAGE = 'jiebaRapi', x, cutter)
}