Replace Abbreviations

Usage

replace_abbreviation(text.var, abbreviation = qdapDictionaries::abbreviations, replace = NULL, ignore.case = TRUE)

Arguments

text.var

The text variable.

abbreviation

A two column key of abbreviations (column 1) and long form replacements (column 2) or a vector of abbreviations. Default is to use qdapDictionaries's abbreviations data set.

replace

A vector of long form replacements if a data frame is not supplied to the abbreviation argument.

ignore.case

logical. If TRUE replaces without regard to capitalization.

Examples

## <strong>Not run</strong>: 
# x <- c("Mr. Jones is here at 7:30 p.m.",
#     "Check it out at www.github.com/trinker/qdap",
#     "i.e. He's a sr. dr.; the best in 2012 A.D.",
#     "the robot at t.s. is 10ft. 3in.")
# 
# replace_abbreviation(x)
# 
# #create abbreviation and replacement vectors
# abv <- c("in.", "ft.", "t.s.")
# repl <- c("inch", "feet", "talkstats")
# 
# replace_abbreviation(x, abv, repl)
# 
# (KEY <- rbind(abbreviations, data.frame(abv = abv, rep = repl)))
# replace_abbreviation(x, KEY)
# ## <strong>End(Not run)</strong>

See also