Dfyjkt

I am planning to do a online Twitter sentiment analyzer that user can enter the search term by themselves using flexdashboard. Here is the code.

#Getting search term
textInput("data", label = "Enter search term", value = "", width = NULL, placeholder = NULL)
sliderInput("maxTweets", "Number of recent tweets to use for analysis:", min = 10, max = 1000, value = 500)
actionButton("enter", label = "Enter")

twt <- reactive(
 if(input$enter!=0)
 isolate(
 twt <- searchTwitter(input$data, n=input$maxTweets, lang = "en", resultType = "recent")
 )
 
 )

#print tweets searched
twt

Here is the problem. When I run the code below, an error occurred "Error in get_nrc_sentiment: Data must be a character vector.". I have tried map_chr and as.character before but I don't have the column to select.

#Get sentiment 
s <- reactive(
 s<- get_nrc_sentiment(twt())
 )

#Print output
s 

As mentioned in my comment I would strongly advise moving to rtweet, as stated on the twitteR Github page:

This is the start of a relatively leisurely deprecation period for twitteR, in favor of using rtweet. Please start looking to switch over to that package. If you have any questions contact myself or @mkearney

The last commit on that repository was 2 years ago.

If you want to use twitteR nonetheless.

twt <- searchTwitter(input$data, n=100, lang = "en", resultType = "recent")
twt <- twiListToDF(twt) # turn data.frame into a list
twt$text <- as.character(twt$text) # ensure it's a character vector

class(twt)
class(twt$text)

syuzhet::get_nrc_sentiment(txt$text)

You had to make sure it was 1) a vector 2) of type character

syuzhet::get_nrc_sentiment(as.factor(c("Hello", "World")))
#> Error in syuzhet::get_nrc_sentiment(as.factor(c("Hello", "World"))) : 
 Data must be a character vector.
syuzhet::get_nrc_sentiment(list("Hello", "World"))
#> Error in syuzhet::get_nrc_sentiment(list("Hello", "World")) : 
 Data must be a character vector.

This is my answer.

```r
#Getting search term
textInput("data", label = "Enter search term", value = "")
actionButton("enter", label = "Enter")

twt <- reactive(
 if(input$enter!=0)
 isolate(
 return(search_tweets(input$data, n=100, lang = "en", include_rts = FALSE))
 )
 
 )
``` 

````r
#Get sentiment score of tweets
s <- reactive(
 return(get_nrc_sentiment(twt()$text))
 )
#Print sentiment score
renderTable(head(s()))
```