Need someone to debug code for a sentiment analysis in R for Reddit

I am trying to conduct a sentiment analysis in Reddit for a movie title. What am I doing wrong? I get this error: Error in reddit_content(links$URL[i]) : object ‘links’ not found when I try to list the links

Here is the code:

library(RedditExtractoR)

library(radarchart)

library(tm)

library(syuzhet)

library(dplyr)

library(lubridate)

# Getting Reddit Data

links499 <- reddit_urls(search_terms = “Ghostbusters Afterlife”,

cn_threshold = 0,

page_threshold = 499,

sort_by = “comments”,

wait_time = 2)

links499Com <- get_reddit(search_terms = “Ghostbusters Afterlife”,

cn_threshold = 0,

page_threshold = 499,

sort_by = “comments”,

wait_time =2)

# function to iterate through all posts

funct = function(i){

content = reddit_content(links$URL[i])

com = iconv(content$comment, to = ‘utf-8’)

clov = get_nrc_sentiment(com)

x1 = 100*colSums(clov)/sum(clov)

return(cbind(links[i,], t(x1) ))

}

# list of all the links

ls = 1:nrow(links)

# loop through all the links and bind to a data frame

res = do.call(“rbind”, lapply(ls, funct))

res$date = as.Date(res$date, “%d-%m-%y”)

# aggregate data by month

res$month = floor_date(res$date, “month”)

# summarize all results

xx = res %>% group_by(month) %>% summarise(positive = mean(positive), negative = mean(negative)) %>% as.data.frame()

# plot results

barplot(xx[,2:3] %>% as.matrix() %>% t(), col=c(“green”,”red”), main = “Sentiment history”, names.arg = xx$month, xlab = “Month”, ylab = “Sentiment”)