Description Usage Arguments Value Author(s) References See Also Examples
bracketX
- Apply bracket removal to character vectors.
bracketXtract
- Apply bracket extraction to character vectors.
genX
- Apply general chunk removal to character vectors. A
generalized version of bracketX
.
genXtract
- Apply general chunk extraction to character vectors. A
generalized version of bracketXtract
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | bracketX(
text.var,
bracket = "all",
missing = NULL,
names = FALSE,
fix.space = TRUE,
scrub = fix.space
)
bracketXtract(text.var, bracket = "all", with = FALSE, merge = TRUE)
genX(
text.var,
left,
right,
missing = NULL,
names = FALSE,
fix.space = TRUE,
scrub = TRUE
)
genXtract(text.var, left, right, with = FALSE, merge = TRUE)
|
text.var |
The text variable |
bracket |
The type of bracket (and encased text) to remove. This is one
or more of the strings |
missing |
Value to assign to empty cells. |
names |
logical. If |
fix.space |
logical. If |
scrub |
logical. If |
with |
logical. If |
merge |
logical. If |
left |
A vector of character or numeric symbols as the left edge to extract. |
right |
A vector of character or numeric symbols as the right edge to extract. |
bracketX
- returns a vector of text with brackets removed.
bracketXtract
- returns a list of vectors of bracketed text.
genXtract
- returns a vector of text with chunks removed.
genX
- returns a list of vectors of removed text.
Martin Morgan and Tyler Rinker <tyler.rinker@gmail.com>.
https://stackoverflow.com/q/8621066/1000343
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | ## Not run:
examp <- structure(list(person = structure(c(1L, 2L, 1L, 3L),
.Label = c("bob", "greg", "sue"), class = "factor"), text =
c("I love chicken [unintelligible]!",
"Me too! (laughter) It's so good.[interrupting]",
"Yep it's awesome {reading}.", "Agreed. {is so much fun}")), .Names =
c("person", "text"), row.names = c(NA, -4L), class = "data.frame")
examp
bracketX(examp$text, "square")
bracketX(examp$text, "curly")
bracketX(examp$text, c("square", "round"))
bracketX(examp$text)
bracketXtract(examp$text, "square")
bracketXtract(examp$text, "curly")
bracketXtract(examp$text, c("square", "round"))
bracketXtract(examp$text, c("square", "round"), merge = FALSE)
bracketXtract(examp$text)
bracketXtract(examp$text, with = TRUE)
paste2(bracketXtract(examp$text, "curly"), " ")
x <- c("Where is the /big dog#?",
"I think he's @arunning@b with /little cat#.")
genXtract(x, c("/", "@a"), c("#", "@b"))
x <- c("Where is the L1big dogL2?",
"I think he's 98running99 with L1little catL2.")
genXtract(x, c("L1", 98), c("L2", 99))
DATA$state #notice number 1 and 10
genX(DATA$state, c("is", "we"), c("too", "on"))
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.