clean up for first commit to github

meefen · Jul 2, 2013 · b70c951 · b70c951
1 parent b1813a1
commit b70c951
Show file tree

Hide file tree

Showing 25 changed files with 942 additions and 731 deletions.
diff --git a/README.md b/README.md
@@ -0,0 +1,4 @@
+Twitterytics-Shiny
+========================
+
+settings.txt -- settings for the app: 1) hashtag, 2) Google Spreadsheet key, 3) timezone.
diff --git a/data/aera13.Rda b/data/aera13.Rda
diff --git a/data/aera13.csv b/data/aera13.csv
diff --git a/data/communities.Rda b/data/communities.Rda
diff --git a/data/corpus.Rda b/data/corpus.Rda
diff --git a/data/df.Rda b/data/df.Rda
diff --git a/data/df.csv b/data/df.csv
diff --git a/data/sentiments.Rda b/data/sentiments.Rda
diff --git a/data/snaGraph.Rda b/data/snaGraph.Rda
diff --git a/data/snaMatrix.Rda b/data/snaMatrix.Rda
diff --git a/data/urls.Rda b/data/urls.Rda
diff --git a/repeat_pre.R b/repeat_pre.R
@@ -1,12 +1,20 @@
-library(tcltk2)
-
+## function to run preprocessing.R
 RepeatPre <- function() {
-  source("preprocessing.R")
+  source("utils/preprocessing.R")
   cat("RUN preprocessing.R")
 }
 
-tclTaskSchedule(10000, RepeatPre(), id = "preprocessing", redo = TRUE)
-Sys.sleep(2)
 
-tclTaskGet() # List all (non hidden) tasks
-tclTaskDelete(NULL) # finally, delete all pending tasks
+# ## solution 1
+# library(tcltk2)
+# tclTaskSchedule(120000, RepeatPre(), id = "preprocessing", redo = TRUE)
+# Sys.sleep(2)
+# #tclTaskGet() # List all (non hidden) tasks
+# #tclTaskDelete(NULL) # finally, delete all pending tasks
+
+
+## solution 2
+repeat {
+  RepeatPre()
+  Sys.sleep(time = 3600)  # to stop execution for 5 sec
+}
diff --git a/restart.txt b/restart.txt