highlight(sentiment_by(My life has become terrible since I met you and lost money. But I still have got a little hope left in me', by = NULL))


sentiment('I am not very happy. He is very happy')
'My life has become terrible since I met you and lost money' %>% extract_sentiment_terms()


mytext <- c(
'do you like it? But I hate really bad dogs',
'I am the best friend.',
'Do you really like it? I am not a fan'
)

highlight(mytext)