From 30dc1b3ab75af37ce1f056cc83235ffb55286c2c Mon Sep 17 00:00:00 2001
From: "Michael W. Kearney" <kearneymw@missouri.edu>
Date: Tue, 21 Nov 2017 13:08:54 -0600
Subject: [PATCH] fix file names

---
 R/freq_tables.R        | 2 +-
 R/network_analysis.R   | 2 +-
 R/sentiment_analysis.R | 2 +-
 R/word_cloud.R         | 2 +-
 README.md              | 4 ----
 5 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/R/freq_tables.R b/R/freq_tables.R
index b5f6fa2..553c759 100644
--- a/R/freq_tables.R
+++ b/R/freq_tables.R
@@ -5,7 +5,7 @@ library(rtweet)
 library(ggplot2)
 
 ## Read in the streamed data
-d <- parse_stream("data/stream-1.json")
+d <- parse_stream("data/stream.json")
 
 ## function to create freq table
 tab_sort <- function (x, n = 10, mentions = FALSE) {
diff --git a/R/network_analysis.R b/R/network_analysis.R
index 66c3b98..829d4ff 100644
--- a/R/network_analysis.R
+++ b/R/network_analysis.R
@@ -5,7 +5,7 @@ library(rtweet)
 library(igraph)
 
 ## Read in the streamed data
-d <- parse_stream("data/stream-1.json")
+d <- parse_stream("data/stream.json")
 
 ## function to filter out missing and non-unique IDs
 uq_naomit <- function(x) unique(x[!is.na(x)])
diff --git a/R/sentiment_analysis.R b/R/sentiment_analysis.R
index a41c525..8beafdb 100644
--- a/R/sentiment_analysis.R
+++ b/R/sentiment_analysis.R
@@ -5,7 +5,7 @@ library(rtweet)
 lib(tidyverse)
 
 ## Read in the streamed data
-d <- parse_stream("data/stream-1.json")
+d <- parse_stream("data/stream.json")
 
 ## Estimate pos/neg sentiment for each tweet
 d$sentiment <- syuzhet::get_sentiment(d$text, "syuzhet")
diff --git a/R/word_cloud.R b/R/word_cloud.R
index 6ff57b7..190aead 100644
--- a/R/word_cloud.R
+++ b/R/word_cloud.R
@@ -5,7 +5,7 @@ library(rtweet)
 library(ggplot2)
 
 ## Read in the streamed data
-d <- parse_stream("data/stream-1.json")
+d <- parse_stream("data/stream.json")
 
 ## function for cleaning text and creating word freq table
 clean_text_table <- function(data) {
diff --git a/README.md b/README.md
index 62e7dfc..f216685 100644
--- a/README.md
+++ b/README.md
@@ -4,10 +4,6 @@ Collecting data on Twitter statuses containing the #NCA17 hashtag.
 ## Importing the data
 To import the Twitter data, see the [R/data.R](R/data.R) script file.
 
-## NCA Twitter tracking
-Here's the live output generated by the [live.R](live.R) script
-file. It updates every hour.
-
 ### Status frequency
 The number of #nca17 tweets aggregated in 1-hour intervals. View the
 code [here](R/time_series.R).