tweets_df <- data.frame(
User_Comment = c(
"The earthquake was terrible and scary",
"Rescue teams are doing a wonderful job, I feel hopeful",
"No damage here, everything feels normal"
),
stringsAsFactors = FALSE
)
result_df <- analyze_disaster_sentiment(tweets_df, text_column = "User_Comment", method = "afinn")
print(result_df)
Run the code above in your browser using DataLab