Description Usage Arguments Value Note Examples
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.
1 2 | 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.
1 2 3 4 5 6 7 8 9 10 11 | ## `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)), ""))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.