changed lexicon names for grades/ratings

trinker · Jan 15, 2017 · 6a02793 · 6a02793
1 parent 2b99567
commit 6a02793
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/replace_grade.R b/R/replace_grade.R
@@ -17,7 +17,7 @@
 #'     "A poor example deserves a C!"
 #' )))
 #' replace_grade(text)
-replace_grade <- function (x, grade_dt = lexicon::key_grades, ...) {
+replace_grade <- function (x, grade_dt = lexicon::key_grade, ...) {
     mgsub(x, grade_dt[["x"]], grade_dt[["y"]], fixed = FALSE)
 }
 
diff --git a/R/replace_rating.R b/R/replace_rating.R
@@ -24,7 +24,7 @@
 #' )
 #'
 #' replace_rating(x)
-replace_rating <- function (x, rating_dt = lexicon::key_ratings, ...) {
+replace_rating <- function (x, rating_dt = lexicon::key_rating, ...) {
     gsub("\\s+", " ", .mgsub(rating_dt[["x"]], paste0(" ",
         rating_dt[["y"]], " "), x, ...))
 }

diff --git a/man/replace_grade.Rd b/man/replace_grade.Rd
diff --git a/man/replace_rating.Rd b/man/replace_rating.Rd