The Consumer Financial Protection Bureau dataset can be found at data.gov with the link below. The application itself is self contained, meaning the code to clean the data and run the app is located in one file called App.R. This eliminates the number of files required to construct the app from 3 to 1.
https://github.com/jlow2499/Developing-Data-Products-Project
This table is a summarized version of the original data set that is grouped by state and the financial product. It totals the complaints for each state and product then compares those complaints to the state's population.
Using the data from the State Data Table this shows an interactive map to allow the user to better visualize the data.
This table is a summarized version of the original data set that is grouped by date and the financial product. It totals the complaints for each day and product then compares those complaints to the state's population.
Using the data from the Daily Data Table this shows an interactive time series chart to allot the user to better visualize the data.
op <- options(gvis.plot.tag='chart')
cfpb <- read.csv("~/cfpb.csv")
state <- subset(cfpb,Product == "Mortgage")
plot<-gvisGeoChart(data=state,"State","Complaints.To.Population.Times.10000",
options=list(region="US",
displayMode="regions",
resolution="provinces",
height=200,width=450))
plot(plot)