powered by
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