Consider removing more non ascii in `replace_non_ascii`

[trinker]

Would need a replacement argument

textclean::replace_non_ascii("\u0003What was the most important")
## [1] "\003What was the most important"

stringi::stri_replace_all_regex(textclean::replace_non_ascii("\u0003What was the most important"), '[^ -~]+', ' ')
[1] " What was the most important"

[trinker]

replace_curly_quote <- textclean:::replace_curly_quote
mgsub  <- textclean::mgsub
ser  <- textclean:::ser
reps  <- textclean:::reps

replace_non_ascii <- function (x, replacement = '',  remove.nonconverted = TRUE, ...) {
    x <- replace_curly_quote(x)
    x <- stringi::stri_trans_general(x, "latin-ascii")
    x <- iconv(as.character(x), "", "ASCII", "byte")
    Encoding(x) <- "latin1"
    x <- mgsub(x, ser, reps)
    if (isTRUE(remove.nonconverted)) {
        x <- qdapRegex::rm_angle(x, replacement = replacement)
        x <- stringi::stri_replace_all_regex(x, '[^ -~]+', replacement = replacement)
    }
    x
}


replace_non_ascii("\u0003What was the most important")

[1] "What was the most important"