How to run sentiment So, that I can get result for every file separately

[TalhaAsif]

I am working on Sentiment Analysis. I have 542 text files and have to get sentiment scores for each of the files separately But in 1 Loop. How can I add for loop that prints result separately?

Here is the code:

path = 'C:/Users/Hamza/OneDrive/Desktop/talha.R/Project 5/text.files'
setwd(path)
getwd()

fileslist = list.files(pattern = ",*.txt")

datalist = lapply(fileslist, function(x) readLines(x))

datafr = do.call("rbind", datalist)


view(datalist[1])

filename <- datalist
filename <- trimws(filename)

filetext <- glue(read_file(filename))
filetext <- gsub("\\$", "", filetext)

tokens <- tibble(text = filetext) %>% unnest_tokens(word, text)
tokens %>% 
  inner_join(get_sentiments("loughran")) %>% 
  count(sentiment) %>% 
  spread(sentiment, n, fill = 0) %>%
  mutate(sentiment = positive - negative)

This is the sample of the result:

I want this same output for 542 files. Thanks in advance.

[arthur.t]

I would write a function that accepts the filename as an input argument and returns a one-row data frame with the results for that file. Then, you can produce a dataframe of the entire results with map_dfr(setNames(files, files), my_function, .id = "filename").