R/utils-for-csv.R

In paithiov909/rjavacmecab: rJava Interface to CMeCab

#' Utility for handling CSV-like string
#'
#' Parse a CSV-row-like string something like `"a,b,c"`.
#'
#' @param str Character scalar.
#' @param max Integer (column size limit).
#' @return Character vector.
#'
#' @export
csvutil_tokenize <- function(str, max = 99L) {
  if (!is.character(str) || length(str) != 1L || anyNA(str)) {
    rlang::abort("Invalid string provided. String must be a character scalar, not NA_character_.")
  } else {
    J("net.moraleboost.util.CSVUtil")$tokenize(str, as.integer(max))
  }
}

#' Utility for handling CSV-like string
#'
#' Escape space, tab, `"` and `,` in strings.
#'
#' @param chr Character vector.
#' @return Character vector.
#'
#' @export
csvutil_escape <- function(chr) {
  if (!is.character(chr) || anyNA(chr)) {
    rlang::abort("Invalid string provided. String must be a character vector, not NA_character_.")
  } else {
    purrr::map_chr(chr, function(str) {
      J("net.moraleboost.util.CSVUtil")$escape(str)
    })
  }
}

#' Utility for handling CSV-like string
#'
#' Equivalent to \code{paste(chr, collapse = ",")}.
#'
#' @param chr Character vector.
#' @return Character scalar.
#'
#' @export
csvutil_join <- function(chr) {
  if (!is.character(chr) || anyNA(chr)) {
    rlang::abort("Invalid string provided. String must be a character vector, not NA_character_.")
  } else {
    J("net.moraleboost.util.CSVUtil")$join(.jarray(chr))
  }
}