R/write_by_unicode.R

Defines functions write_by_unicode

Documented in write_by_unicode

#' write by unicode
#'
#' to chage non ascii character into unicode
#'
#' @param char char vector
#'
#' @return non print string into stdout
#' @importFrom magrittr %>%
#' @export
write_by_unicode <- function(char){

  writeLines("c(")

  for(i in char){

    tmp_char <- stringi::stri_escape_unicode(i)

    sprintf('  "%s",\t\t# "%s"', tmp_char, i) %>% writeLines()

  }

  writeLines(")")
}
syunsuke/rtinytool documentation built on Dec. 23, 2021, 7:40 a.m.