live update number 1

mkearney · Nov 15, 2017 · afd0a31 · afd0a31
1 parent 407fb64
commit afd0a31
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 2 deletions.
diff --git a/live.R b/live.R
@@ -72,15 +72,15 @@ while (Sys.time() < as.POSIXct("2017-11-21")) {
 
   ## most frequent tweeters table
   usrs <- tab_sort(nca$screen_name)
-  png("nca17-usrs.png", height = 3.75, width = 5, "in", res = 300)
+  png("nca17-usrs.png", height = 3.1, width = 4.25, "in", res = 300)
   par(bg = "white")
   gridExtra::grid.table(usrs, theme = gridExtra::ttheme_default(base_size = 9))
   dev.off()
 
   ## most frequent mentions table
   naomit <- function(x) x[!is.na(x)]
   usrs <- tab_sort(naomit(unlist(nca$mentions_screen_name)), mentions = TRUE)
-  png("nca17-ats.png", height = 3.75, width = 5.1, "in", res = 300)
+  png("nca17-ats.png", height = 3.1, width = 4.26, "in", res = 300)
   par(bg = "white")
   gridExtra::grid.table(usrs, theme = gridExtra::ttheme_default(base_size = 9))
   dev.off()

diff --git a/nca17-ats.png b/nca17-ats.png
diff --git a/nca17-ts.png b/nca17-ts.png
diff --git a/nca17-usrs.png b/nca17-usrs.png
diff --git a/nca17-wc.png b/nca17-wc.png