fixing paths and flow

Author: rcurty

scripts/workshop_package/scripts_sentiment_analysis_ak.qmd

@@ -3,7 +3,7 @@ title: "Sentiment and Emotion Analysis of Comments"
 editor: visual
 ---
 
-## Setup: Installing and Loading Packages
+## Setup: Installing & Loading Packages & Data
 
 ```{r}
 # Install all required packages
@@ -29,12 +29,14 @@ library(RColorBrewer)
 library(stringr)
 ```
 
-### Polarity Analysis
-
 ```{r}
 # Load Data
-comments <- readr::read_csv("./data/comments_preprocessed.csv")
+comments <- readr::read_csv("./data/clean/comments_preprocessed.csv")
+```
 
+### Polarity Analysis
+
+```{r}
 # Compute sentiment per row/case
 sentiment_scores <- sentiment_by(comments$comments)
 
@@ -80,6 +82,7 @@ ggplot(polarity_seasons, aes(x = score, fill = season)) +
   scale_fill_brewer(palette = "Set1")
 
 # Save results
+dir.create("output", recursive = TRUE, showWarnings = FALSE) #create dir
 write_csv(polarity, "output/polarity_results.csv")
 ```