Commit d785b929 authored by ashtondrew's avatar ashtondrew

adjust 1113 layout and font details

parent faf9146f
......@@ -6,7 +6,7 @@
# R version 3.3.2 (2016-10-31)
# Libraries, Data, and Source Code ----
source("dependencies.R")
#source("dependencies.R")
library(shiny) #Version 1.0.3
library(readr) #Version 1.1.1
......@@ -18,8 +18,10 @@ library(forcats) #Version 0.2.0
library(ggplot2) # Version 2.2.1
library(scales) #Version 0.4.1
library(DT) #Version 0.2
library(ReporteRsjars) #Version 0.0.2
library(ReporteRs) #Version 0.8.8
# load tidy PPP data
# These data files are tidy versions of Gwen Iacona's PPP result data
# The script used to prep the data for use here is: script_TidyPPPData.R
......@@ -129,55 +131,55 @@ ui <- fluidPage(
tabPanel("1113 Allocation",
fluidRow(
column(3,
column(4,
h2("Total 1113 Budget Allocation"),
h4("Enter the expected 1113 budget and then allocate that budget among the five primary recovery activities."),
h5("Enter the expected 1113 budget and then allocate that budget among the five primary recovery activities."),
wellPanel(id="BA_1113",
h3("Expected 1113 Budget"),
h4("Expected 1113 Budget"),
numericInput("BA_Total", label="Annual Dollars:",
value=20000000, width=400, step=1000000),
hr(),
h3("Allocation Summary"),
h4("Allocation Summary"),
tableOutput("BA_BudgetTable"),
h4(span(textOutput("BA_Summary"), style="color:#FFC300")),
h5(span(textOutput("BA_Summary"), style="color:#FFC300")),
hr(),
h4("Save a brief powerpoint report of these results."),
h5("Save a brief powerpoint report of these results."),
downloadButton("PPT_report", "*.pptx Presentation")
)
),
column(9,
column(8,
fluidRow(
column(6,
wellPanel(
h3("Congressional and Service Required Work"),
h4("Congressional and Service Required Work"),
numericInput("BA_DWork_Budget",
label="Enter the amount allocated to required work:",
value=2500000, width=400, step=10000)
),
wellPanel(
h3("Five Year Reviews"),
h4("Five Year Reviews"),
numericInput("BA_5Yr_Number",
label="Enter the target number of five-year reviews:",
value=15, width=400, step=1),
numericInput("BA_5Yr_Cost",
label="Enter the estimated average cost per review:",
value=20000, width=400, step=500),
h4(textOutput("BA_5Yr_Budget"))
h5(textOutput("BA_5Yr_Budget"))
),
wellPanel(
h3("Recovery Planning"),
h4("Recovery Planning"),
numericInput("BA_Plan_Number",
label="Enter the target number of plans:",
value=20, width=400, step=1),
numericInput("BA_Plan_Cost",
label="Enter the estimated average cost per plan:",
value=20000, width=400, step=500),
h4(textOutput("BA_Plan_Budget"))
h5(textOutput("BA_Plan_Budget"))
)
),
column(6,
wellPanel(
h3("Down-listing and Delisting"),
h4("Down-listing and Delisting"),
numericInput("BA_Downlist_Number",
label="Enter the target number of down-listings:",
value=5, width=400, step=1),
......@@ -190,17 +192,17 @@ ui <- fluidPage(
numericInput("BA_Delist_Cost",
label="Enter the estimated average cost per delisting:",
value=10000, width=400, step=500),
h4(textOutput("BA_Downlist_Budget")),
h4(textOutput("BA_Delist_Budget"))
h5(textOutput("BA_Downlist_Budget")),
h5(textOutput("BA_Delist_Budget"))
),
wellPanel(
h3("Implementation"),
h4(span(textOutput("BA_AvailableForRecovery"), style="color:red")),
h4("Implementation"),
h5(span(textOutput("BA_AvailableForRecovery"), style="color:red")),
numericInput("BA_Action_Percent",
label="Enter the percentage of implementation budget to allocate towards Recovery Actions (versus other implementation activities):",
value=50, width=400, step=1),
h4(textOutput("BA_Action_Budget")),
h4(textOutput("BA_Other_Budget"))
h5(textOutput("BA_Action_Budget")),
h5(textOutput("BA_Other_Budget"))
)
)
)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment