From 256c8407d40c1bffd8fbed9e390a27149086d036 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Thu, 17 Oct 2019 19:01:22 +1300
Subject: [PATCH] added package settings

---
 packageSettings.R | 52 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 packageSettings.R

diff --git a/packageSettings.R b/packageSettings.R
new file mode 100644
index 0000000..2383ae4
--- /dev/null
+++ b/packageSettings.R
@@ -0,0 +1,52 @@
+# ------ Global SPATIALEC Settings -------
+
+# Set knitr options -----
+knitr::opts_chunk$set(echo = FALSE) # do not echo code
+knitr::opts_chunk$set(warning = TRUE)
+knitr::opts_chunk$set(message = TRUE)
+knitr::opts_chunk$set(fig_caption = TRUE)
+knitr::opts_chunk$set(fig_height = 6) # default, make it bigger to stretch vertical axis
+knitr::opts_chunk$set(fig_width = 8) # full width
+knitr::opts_chunk$set(tidy = TRUE) # tidy up code in case echo = TRUE
+
+# Local parameters ----
+p_Params <- list()
+
+# > Assigns variables "sysName", "nodeName" and "userName" to global environment ----
+sysInfo <- Sys.info()
+p_Params$sysName <- sysInfo[[1]]
+p_Params$nodeName <- sysInfo[[4]]
+p_Params$userName <- sysInfo[[7]]
+
+# > colour blind palettes for charts ----
+# http://www.cookbook-r.com/Graphs/Colors_(ggplot2)/#a-colorblind-friendly-palette
+# with grey
+p_Params$cbgPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
+# with black
+p_Params$cbbPalette <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
+
+# NB for plots with more categories etc use the viridis library 
+# https://cran.r-project.org/web/packages/viridis/vignettes/intro-to-viridis.html
+
+# Paths ----
+
+p_Params$projRoot <- here::here()
+
+# > Location of includes ----
+# Generally go at start or end of .Rmd reports
+p_Params$spatialecAbout <- paste0(p_Params$projRoot, "/_includes/spatialecAbout.Rmd")
+
+# > Green Grid data ----
+p_Params$ggPath <- paste0("/Volumes/hum-csafe/Research Projects/GREEN Grid")
+
+# > NZ Census data ----
+p_Params$dataPath <- "~/Data/NZ_Census/data/"
+
+p_Params$gisPath <- "~/Data/NZ_Census/gis/"
+p_Params$areasTable2013 <- paste0(p_Params$gisPath, "2013/2013_Areas_Table.txt")
+
+# Metadata
+p_Params$metadata <- "Marie Sklodowska-Curie Action, 'Developing methods to model local area domestic electricity demand', SPATIALEC, Grant No 700386"
+
+
+
-- 
GitLab