1 измененных файлов: 1 добавлений и 1 удалений
+ 1
- 1
R/regex_gadget.R
Просмотреть файл
| sanitize_text_input <- function(x) { | sanitize_text_input <- function(x) { | ||||
| if (is.null(x) || !nchar(x)) return(x) | if (is.null(x) || !nchar(x)) return(x) | ||||
| if (grepl("\\u|\\x|\\N|\\a|\\o", x)) { | |||||
| if (grepl("\\u[0-9a-f]{4,8}|\\x[0-9a-f]{2}|\\x\\{[0-9a-f]{1,6}\\}|\\N|\\0[0-8]{1,3}", x)) { | |||||
| try({ | try({ | ||||
| y <- stringi::stri_unescape_unicode(x) | y <- stringi::stri_unescape_unicode(x) | ||||
| }, silent = TRUE) | }, silent = TRUE) |
Загрузка…