R/e.R

In zozlak/ZPD: Tools for a Polish examination data and item bank database

#' @title Konwertuje łańcuch znaków na lokalne kodowanie komputera
#' @description 
#' Konwertuje łańcuch znaków na lokalne kodowanie komputera
#' @param s wektor lub macierz do konwersji
#' @export
e = function(s){
  stopifnot(
    is.character(s)
  )
  if(nchar('ą') == 2){
    Encoding(s) = 'UTF-8'
    s = enc2native(s)
  }
  return(s)
}