# NOT RUN {
x <- c("45", "..", "", " ", "dog")
sub_in_na(x)
sub_in_na(x, "^\\s*$")
# }
# NOT RUN {
library(tidyverse)
x %>%
q_dtm() %>%
as.matrix()
x %>%
sub_in_na() %>%
q_dtm() %>%
as.matrix()
# }
Run the code above in your browser using DataLab