Goodreader (version 0.1.1)

analyze_sentiment: Perform sentiment analysis on book reviews with negation handling

Description

This function takes the output from scrape_reviews and performs sentiment analysis, including basic negation scope detection.

Usage

analyze_sentiment(reviews_df, lexicon = "afinn")

Value

A data frame with sentiment scores for each review.

Arguments

reviews_df

A data frame containing the output from scrape_reviews.

lexicon

The sentiment lexicon to use. Options are "afinn", "bing", or "nrc".

Examples

# \donttest{
# Create a temporary file with sample book IDs
temp_file <- tempfile(fileext = ".txt")
writeLines(c("1420", "2767052", "10210"), temp_file)

# Run the scrape_reviews function
reviews <- scrape_reviews(temp_file, num_reviews = 5, use_parallel = FALSE)

# Check if reviews were successfully scraped
if (nrow(reviews) > 0) {
  # Perform sentiment analysis
  sentiment_results <- analyze_sentiment(reviews, lexicon = "afinn")

  # Display the first few rows of the results
  print(head(sentiment_results))
} else {
  cat("No reviews found. Cannot perform sentiment analysis.\n")
}

# Clean up: remove the temporary file
file.remove(temp_file)
# }