library(stringr)
a <- "test:e[xample\\"
str_replace_all(a, "[/\\\\?*:\\[\\]]", "_")
gsub("[][/\\?*:]", "_", a)
gsub("[][/\\\\?*:]", "_", a, perl=TRUE)