-
Notifications
You must be signed in to change notification settings - Fork 0
/
Shinyapp.R
48 lines (38 loc) · 2.33 KB
/
Shinyapp.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
## Get libraries going
library(data.table)
library(DT)
library(shiny)
## Create relevant objects
# Load data file for merged personnel
personnelmerge <- read.csv("RDPMergedpersonnel.csv")
# Rename columns
setnames(personnelmerge, c("Term.Status", "Term.Expires", "Must.Vacate.Seat.By", "Nomination.Status", "Latest.Action", "Dated.Received.from.President", "Replaced..Replacing", "Additional.Notes"), c("Term Status", "Term Expires", "Must Vacate Seat By", "Nomination Status", "Latest Action", "Date Received from President", "Replaced/ Replacing", "Additional Notes"))
# Load data file for agency info
agencyinfo <- read.csv("RDPAgencyinfo.csv")
# Rename columns
setnames(agencyinfo, c("Voting.Members", "Appointed.members..subject.to.Senate.confirmation.for.THIS.post", "Enough.for.quorum.", "Political.balance.required.", "Senate.Committee.with.Jurisdiction", "Republican.Vacancies", "Democrat.Vacancies", "Serving.expired.terms", "Republican.Serving.Expired.Terms", "Democrat.Serving.Expired.Terms", "Pending.nominations"), c("Voting Members", "Appointed Members (requiring Senate confirmation for THIS seat)", "Enough for quorum?", "Political balance required?", "Senate Committee with Jurisdiction", "Republican Vacancies", "Democrat Vacancies", "Serving Expired Terms", "Republicans Serving Expired Terms", "Democrats Serving Expired Terms", "Pending Nominations"))
# Define UI for application
ui <- fluidPage(
# Application title
titlePanel("Revolving Door Project - Independent Federal Agency Monitor"),
# Show a plot of the generated distribution
mainPanel(
tabsetPanel(
tabPanel("Agencies - Overview", DT::dataTableOutput("agencyinfo")),
tabPanel("Agencies - Personnel", DT::dataTableOutput("personnelmerge"))
)
)
)
# Define server logic
server <- function(input, output) {output$agencyinfo <- DT::renderDataTable({DT::datatable(agencyinfo, options = list(pageLength = 25))})
output$personnelmerge <- DT::renderDataTable({DT::datatable(personnelmerge, options = list(pageLength = 25))})}
# Run the application
shinyApp(ui = ui, server = server)