
replace_grade(text.var, grade_dt = sentimentr::grades, ...)
(text <- replace_grade(c(
"I give an A+",
"He deserves an F",
"It's C+ work",
"A poor example deserves a C!"
)))
sentiment(text)
Run the code above in your browser using DataLab