omarbenites

# ggparliament example
# Zoe Meers
# 12 July 2018
# 

library(tidyverse)
library(ggparliament) # download from github using devtools.
# predictions from NY Times -- see https://www.nytimes.com/interactive/2018/03/26/us/elections/house-races-midterms.html

# Regarding order -- from the POV of the speaker, Republicans sit to the left of the chamber and Democrats to the right. 

omarbenites

The need of this came from the fact that read.csv can read zip files directly but data.table::fread cannot take connections as input since it requires random file seek. There is simple usage of data.table::fread(paste0("zcat < ", PATH_TO_FILE)) but that depend on command line tool gzip, which is not always available in windows. See here for more details.

The code is based on R.utils::decompressFile with lots of modifications:

1. no more removing input file. I lost several data files and puzzled too much time because of this even if I read the document and knew this behavior in the beginning.
2. According to ?connections, `gzfile`` can handle gz, bzip2, xz. No need to specify and use different functions for uncompress.
3. The only exception is gzfile cannot handle zip. We can use unzip to decompress file directly without need of connections. unzip does not support Unicode filenames as introduced in zip 3.0. See more in ?unzip for its li

omarbenites

# load required libraries
library(shiny)
library(plyr)
library(ggplot2)
library(googleVis)
library(reshape2)


####creation of example data on local directory for uploading####

omarbenites

# original example from Digg Data website (Takashi J. OZAKI, Ph. D.) 
# http://diggdata.in/post/58333540883/k-fold-cross-validation-in-r


library(plyr)
library(randomForest)

data <- iris

# in this cross validation example, we use the iris data set to