Hold the Place of Characters Prior to Subbing
This function holds the place for particular character values, allowing the user to manipulate the vector and then revert the place holders back to the original values.
sub_holder(x, pattern, alpha.type = TRUE, holder.prefix = "zzzplaceholder", holder.suffix = "zzz", ...)
x |
A character vector. |
pattern |
Character string to be matched in the given character vector. |
alpha.type |
logical. If |
holder.prefix |
The prefix to use before the alpha key in the palce
holder when |
holder.suffix |
The suffix to use after the alpha key in the palce
holder when |
... |
Additional arguments passed to |
Returns a list with the following:
output |
keyed place holder character vector |
unhold |
A function used to revert back to the original values |
The unhold function for sub_holder will only work on keys
that have not been disturbed by subsequent alterations. The key follows the
pattern of holder.prefix ('zzzplaceholder') followed by lower case letter
keys followed by holder.suffix ('zzz') when alpha.type = TRUE,
otherwise the holder is numeric.
## `alpha.type` as TRUE
library(lexicon); library(textshape)
(fake_dat <- paste(hash_emoticons[1:11, 1, with=FALSE][[1]], DATA$state))
(m <- sub_holder(fake_dat, hash_emoticons[[1]]))
m$unhold(strip(m$output))
## `alpha.type` as FALSE (numeric keys)
vowels <- LETTERS[c(1, 5, 9, 15, 21)]
(m2 <- sub_holder(toupper(DATA$state), vowels, alpha.type = FALSE))
m2$unhold(gsub("[^0-9]", "", m2$output))
mtabulate(strsplit(m2$unhold(gsub("[^0-9]", "", m2$output)), ""))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.