Commit abf8454b authored by Gwen Iacona's avatar Gwen Iacona

update app to remove depreciated package. No longer has the option to output a report

parent d6a90e5e
......@@ -6,28 +6,33 @@
# 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
# library(magrittr) #Version 1.5
# library(plyr) #Version 1.8.4
# library(dplyr) #Version 0.7.1
# library(tidyr) #Version 0.6.3
# 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(shiny) #Version 1.0.3
library(readr) #Version 1.1.1
library(magrittr) #Version 1.5
library(plyr) #Version 1.8.4
library(dplyr) #Version 0.7.1
library(tidyr) #Version 0.6.3
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 # depreciated. Broke ability to download report from shiny. Needs to be updated to "officer"
# 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
datLONG <- read_csv("Data/TidyPPPOutput_LONG.csv")
datLONG <- read_csv("Data/TidyPPPOutput_LONG.csv", guess_max = 2740) # added guess_max to avoid parsing errors
datWIDE <- read_csv("Data/TidyPPPOutput_WIDE.csv")
## drop the records where benefit is NA. Should have done this before...
datLONG <- datLONG[-which(is.na(datLONG$Benefit)),]
datWIDE <- datWIDE[-which(is.na(datWIDE$Benefit)),]
# Load preprocessed Included/Excluded by Budget data
# budget simulation lists for Budget=seq(200000, 600000000, by=200000)
# as created by script_BudgetSimulationList.R
......@@ -42,7 +47,7 @@ taxa_reg_budgetSim <- readRDS("Data/Taxa_regional_budgetSimList.rds")
# Table 1 Summary of Number of Species Results
uncNSpp <- read_csv("Data/Updated_TidyUncertaintyTable1.csv")
uncNSpp$Treatment <- fct_relevel(uncNSpp$Treatment, "BSCo", "BS", "BCo", "SCo", "B", "S", "Co")
uncNSpp$Budget <- fct_relevel(uncNSpp$Budget, "$7,500,000", "$15,000,000", "$30,00,000")
uncNSpp$Budget <- fct_relevel(uncNSpp$Budget, "$7,500,000", "$15,000,000", "$30,000,000")
# Table 3 Summary of Always-Never Funded
uncInOut <- read_csv("Data/Updated_TidyUncertaintyTable3.csv")
uncInOut$Budget <- fct_relevel(uncInOut$Budget, "$7,500,000", "$15,000,000", "$30,000,000")
......@@ -145,9 +150,9 @@ ui <- fluidPage(
h4("Allocation Summary"),
tableOutput("BA_BudgetTable"),
h5(span(textOutput("BA_Summary"), style="color:#FFC300")),
hr(),
h5("Save a brief powerpoint report of these results."),
downloadButton("PPT_report", "*.pptx Presentation")
hr()#,
# h5("Save a brief powerpoint report of these results."), # remove this option because package depreciated
# downloadButton("PPT_report", "*.pptx Presentation")
)
),
column(8,
......@@ -228,9 +233,9 @@ ui <- fluidPage(
h4("Current Estimated Annual Budget for Recovery Actions"),
uiOutput("uiNS_CurrAnnBudget"),
span(h5("Default is the value set on the 1113 tab."), style="color:#FFC300"),
hr(),
h4("Save a brief document report of these results."),
downloadButton("DOC_report", "*.docx Document")
hr()#,
# h4("Save a brief document report of these results."),
# downloadButton("DOC_report", "*.docx Document")
),
wellPanel(id="NS_BudgetsTargets",
h4("Select a tab to set a budget or species target:"),
......
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