From bafee1b85f8cdeb94e25e2f399ba5c33002f8dbe Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Mon, 30 Apr 2018 09:42:54 +1200
Subject: [PATCH] moved green grid stuff to new repo
---
greenGrid/processGridSpyData.R | 82 -----------
greenGridr/DESCRIPTION | 12 --
greenGridr/LICENSE | 201 --------------------------
greenGridr/NAMESPACE | 1 -
greenGridr/R/dependencies.R | 4 -
greenGridr/R/processGridSpyFiles.R | 19 ---
greenGridr/R/utilities.R | 63 --------
greenGridr/README.md | 11 --
greenGridr/man/findParentDirectory.Rd | 19 ---
greenGridr/man/hello.Rd | 12 --
greenGridr/man/list1mGridSpyFiles.Rd | 22 ---
greenGridr/man/myRequiredPackages.Rd | 27 ----
greenGridr/man/tidyNum.Rd | 17 ---
greenGridr_0.1.0.tar.gz | Bin 5184 -> 0 bytes
14 files changed, 490 deletions(-)
delete mode 100644 greenGrid/processGridSpyData.R
delete mode 100644 greenGridr/DESCRIPTION
delete mode 100644 greenGridr/LICENSE
delete mode 100644 greenGridr/NAMESPACE
delete mode 100644 greenGridr/R/dependencies.R
delete mode 100644 greenGridr/R/processGridSpyFiles.R
delete mode 100644 greenGridr/R/utilities.R
delete mode 100644 greenGridr/README.md
delete mode 100644 greenGridr/man/findParentDirectory.Rd
delete mode 100644 greenGridr/man/hello.Rd
delete mode 100644 greenGridr/man/list1mGridSpyFiles.Rd
delete mode 100644 greenGridr/man/myRequiredPackages.Rd
delete mode 100644 greenGridr/man/tidyNum.Rd
delete mode 100644 greenGridr_0.1.0.tar.gz
diff --git a/greenGrid/processGridSpyData.R b/greenGrid/processGridSpyData.R
deleted file mode 100644
index efac08e..0000000
--- a/greenGrid/processGridSpyData.R
+++ /dev/null
@@ -1,82 +0,0 @@
-#### About ----
-# Code to process NZ GREEN Grid grid spy data
-
-#### Libraries ----
-library(data.table)
-library(lubridate) # keep here otherwise data.table masks various functions
-library(readr)
-library(greenGridr)
-
-#### Local parameters ----
-fpath <- "/Volumes/hum-csafe/Research Projects/GREEN Grid/_RAW DATA/GridSpyData/" # location of data
-#fpath <- "~/Data/NZGreenGrid/gridspy/1min_orig/" # location of data
-pattern <- "*at1.csv$" # filters only 1 min data
-
-outPath <- "/Volumes/hum-csafe/Research Projects/GREEN Grid/Clean_data/gridSpy/1min/" # place to save them
-#outPath <- "~/Data/NZGreenGrid/gridspy/consolidated/"
-
-dataThreshold <- 3000 # assume any files smaller than this (bytes) = no data
-
-### Code ----
-# Get the full 1 minute file listing ----
-filesDT <- list1mGridSpyFiles(fpath, pattern)
-
-filesDT <- filesDT[, c("hhID","fileName") := tstrsplit(V1, "/")]
-filesDT <- filesDT[, fullPath := paste0(fpath, hhID,"/",fileName)]
-
-print(paste0("Found ", nrow(filesDT), " files from ", uniqueN(filesDT$hhID), " households."))
-
-#Â check
-head(filesDT)
-
-# Load, process & save the ones which probably have data ----
-
-hhIDs <- unique(filesDT$hhID) #Â list of household ids
-allFileInfoDT <- data.table()
-
-for(hh in hhIDs){
- print(paste0("Loading: ", hh))
- tempHhDT <- data.table() #Â create data.table to hold file contents
- filesToLoad <- filesDT[hhID == hh, fullPath]
- for(f in filesToLoad){
- # check file
- # print(paste0("Checking: ", f))
- rf <- path.expand(f) # just in case of ~ etc
- finfo <- file.info(rf)
- allFileInfoDT <- rbind(allFileInfoDT, as.data.table(finfo))
- fsize <- file.size(rf)
- if(fsize > dataThreshold){ #Â set above
- print(paste0("Checking: ", f))
- print(paste0("File size = ", file.size(f), " so probably OK")) # files under 3kb are probably empty
- # attempt to load the file
- tempDT <- fread(f)
- tempHhDT <- rbind(tempHhDT, tempDT, fill = TRUE) #Â just in case there are different numbers of columns (quite likely!)
- }
- }
- # tidy column names
- tempHhDT$r_dateTime <- tempHhDT$"date NZ"
- tempHhDT$"date NZ" <- NULL #to avoid confusion
- # remove duplicates caused by over-lapping files
- nObs <- nrow(tempHhDT)
- print(paste0("N rows before removal of dublicates: ", nObs))
- tempHhDT <- unique(tempHhDT)
- nObs <- nrow(tempHhDT)
- print(paste0("N rows after removal of dublicates: ", nObs))
- # set month
- tempHhDT$month <- month(tempHhDT$r_dateTime) # requires lubridate
- tempHhDT$year <- year(tempHhDT$r_dateTime) # requires lubridate
- # > save out by year & month ----
- months <- unique(tempHhDT$month)
- years <- unique(tempHhDT$year)
- for(m in months){
- for(y in years){
- ofile <- paste0(outPath, hh,"_", y, "_", m, "_all_1min_data.csv")
- write_csv(tempHhDT[month == m & year == y], ofile)
- print(paste0("Saved ", ofile))
- #cmd <- paste0("gzip -f ", ofile) # gzip it
- #try(system(cmd)) # in case it fails - if it does there will just be .csv files (not gzipped) - e.g. under windows
- }
- }
-}
-
-summary(allFileInfoDT)
diff --git a/greenGridr/DESCRIPTION b/greenGridr/DESCRIPTION
deleted file mode 100644
index a10b3b8..0000000
--- a/greenGridr/DESCRIPTION
+++ /dev/null
@@ -1,12 +0,0 @@
-Package: greenGridr
-Type: Package
-Title: Functions for processing NZ GREEN Grid project data
-Version: 0.1.0
-Author: Ben Anderson
-Maintainer: Ben Anderson <b.anderson@soton.ac.uk>
-Description: The NZ GREEN Grid project collected electricity consumption data for each circuit of XXX NZ dwellings over a period of XX months from Year1 to Year 2.
- The project also collected household survey and time-use diary data on specific dates. This package provides a set of functions to process and link this data. Note that the data is _not_ included in the package.
-License: Apache License Version 2.0
-Encoding: UTF-8
-LazyData: true
-RoxygenNote: 6.0.1
diff --git a/greenGridr/LICENSE b/greenGridr/LICENSE
deleted file mode 100644
index 44ab252..0000000
--- a/greenGridr/LICENSE
+++ /dev/null
@@ -1,201 +0,0 @@
- Apache License
- Version 2.0, January 2004
- http://www.apache.org/licenses/
-
- TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
-
- 1. Definitions.
-
- "License" shall mean the terms and conditions for use, reproduction,
- and distribution as defined by Sections 1 through 9 of this document.
-
- "Licensor" shall mean the copyright owner or entity authorized by
- the copyright owner that is granting the License.
-
- "Legal Entity" shall mean the union of the acting entity and all
- other entities that control, are controlled by, or are under common
- control with that entity. For the purposes of this definition,
- "control" means (i) the power, direct or indirect, to cause the
- direction or management of such entity, whether by contract or
- otherwise, or (ii) ownership of fifty percent (50%) or more of the
- outstanding shares, or (iii) beneficial ownership of such entity.
-
- "You" (or "Your") shall mean an individual or Legal Entity
- exercising permissions granted by this License.
-
- "Source" form shall mean the preferred form for making modifications,
- including but not limited to software source code, documentation
- source, and configuration files.
-
- "Object" form shall mean any form resulting from mechanical
- transformation or translation of a Source form, including but
- not limited to compiled object code, generated documentation,
- and conversions to other media types.
-
- "Work" shall mean the work of authorship, whether in Source or
- Object form, made available under the License, as indicated by a
- copyright notice that is included in or attached to the work
- (an example is provided in the Appendix below).
-
- "Derivative Works" shall mean any work, whether in Source or Object
- form, that is based on (or derived from) the Work and for which the
- editorial revisions, annotations, elaborations, or other modifications
- represent, as a whole, an original work of authorship. For the purposes
- of this License, Derivative Works shall not include works that remain
- separable from, or merely link (or bind by name) to the interfaces of,
- the Work and Derivative Works thereof.
-
- "Contribution" shall mean any work of authorship, including
- the original version of the Work and any modifications or additions
- to that Work or Derivative Works thereof, that is intentionally
- submitted to Licensor for inclusion in the Work by the copyright owner
- or by an individual or Legal Entity authorized to submit on behalf of
- the copyright owner. For the purposes of this definition, "submitted"
- means any form of electronic, verbal, or written communication sent
- to the Licensor or its representatives, including but not limited to
- communication on electronic mailing lists, source code control systems,
- and issue tracking systems that are managed by, or on behalf of, the
- Licensor for the purpose of discussing and improving the Work, but
- excluding communication that is conspicuously marked or otherwise
- designated in writing by the copyright owner as "Not a Contribution."
-
- "Contributor" shall mean Licensor and any individual or Legal Entity
- on behalf of whom a Contribution has been received by Licensor and
- subsequently incorporated within the Work.
-
- 2. Grant of Copyright License. Subject to the terms and conditions of
- this License, each Contributor hereby grants to You a perpetual,
- worldwide, non-exclusive, no-charge, royalty-free, irrevocable
- copyright license to reproduce, prepare Derivative Works of,
- publicly display, publicly perform, sublicense, and distribute the
- Work and such Derivative Works in Source or Object form.
-
- 3. Grant of Patent License. Subject to the terms and conditions of
- this License, each Contributor hereby grants to You a perpetual,
- worldwide, non-exclusive, no-charge, royalty-free, irrevocable
- (except as stated in this section) patent license to make, have made,
- use, offer to sell, sell, import, and otherwise transfer the Work,
- where such license applies only to those patent claims licensable
- by such Contributor that are necessarily infringed by their
- Contribution(s) alone or by combination of their Contribution(s)
- with the Work to which such Contribution(s) was submitted. If You
- institute patent litigation against any entity (including a
- cross-claim or counterclaim in a lawsuit) alleging that the Work
- or a Contribution incorporated within the Work constitutes direct
- or contributory patent infringement, then any patent licenses
- granted to You under this License for that Work shall terminate
- as of the date such litigation is filed.
-
- 4. Redistribution. You may reproduce and distribute copies of the
- Work or Derivative Works thereof in any medium, with or without
- modifications, and in Source or Object form, provided that You
- meet the following conditions:
-
- (a) You must give any other recipients of the Work or
- Derivative Works a copy of this License; and
-
- (b) You must cause any modified files to carry prominent notices
- stating that You changed the files; and
-
- (c) You must retain, in the Source form of any Derivative Works
- that You distribute, all copyright, patent, trademark, and
- attribution notices from the Source form of the Work,
- excluding those notices that do not pertain to any part of
- the Derivative Works; and
-
- (d) If the Work includes a "NOTICE" text file as part of its
- distribution, then any Derivative Works that You distribute must
- include a readable copy of the attribution notices contained
- within such NOTICE file, excluding those notices that do not
- pertain to any part of the Derivative Works, in at least one
- of the following places: within a NOTICE text file distributed
- as part of the Derivative Works; within the Source form or
- documentation, if provided along with the Derivative Works; or,
- within a display generated by the Derivative Works, if and
- wherever such third-party notices normally appear. The contents
- of the NOTICE file are for informational purposes only and
- do not modify the License. You may add Your own attribution
- notices within Derivative Works that You distribute, alongside
- or as an addendum to the NOTICE text from the Work, provided
- that such additional attribution notices cannot be construed
- as modifying the License.
-
- You may add Your own copyright statement to Your modifications and
- may provide additional or different license terms and conditions
- for use, reproduction, or distribution of Your modifications, or
- for any such Derivative Works as a whole, provided Your use,
- reproduction, and distribution of the Work otherwise complies with
- the conditions stated in this License.
-
- 5. Submission of Contributions. Unless You explicitly state otherwise,
- any Contribution intentionally submitted for inclusion in the Work
- by You to the Licensor shall be under the terms and conditions of
- this License, without any additional terms or conditions.
- Notwithstanding the above, nothing herein shall supersede or modify
- the terms of any separate license agreement you may have executed
- with Licensor regarding such Contributions.
-
- 6. Trademarks. This License does not grant permission to use the trade
- names, trademarks, service marks, or product names of the Licensor,
- except as required for reasonable and customary use in describing the
- origin of the Work and reproducing the content of the NOTICE file.
-
- 7. Disclaimer of Warranty. Unless required by applicable law or
- agreed to in writing, Licensor provides the Work (and each
- Contributor provides its Contributions) on an "AS IS" BASIS,
- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
- implied, including, without limitation, any warranties or conditions
- of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
- PARTICULAR PURPOSE. You are solely responsible for determining the
- appropriateness of using or redistributing the Work and assume any
- risks associated with Your exercise of permissions under this License.
-
- 8. Limitation of Liability. In no event and under no legal theory,
- whether in tort (including negligence), contract, or otherwise,
- unless required by applicable law (such as deliberate and grossly
- negligent acts) or agreed to in writing, shall any Contributor be
- liable to You for damages, including any direct, indirect, special,
- incidental, or consequential damages of any character arising as a
- result of this License or out of the use or inability to use the
- Work (including but not limited to damages for loss of goodwill,
- work stoppage, computer failure or malfunction, or any and all
- other commercial damages or losses), even if such Contributor
- has been advised of the possibility of such damages.
-
- 9. Accepting Warranty or Additional Liability. While redistributing
- the Work or Derivative Works thereof, You may choose to offer,
- and charge a fee for, acceptance of support, warranty, indemnity,
- or other liability obligations and/or rights consistent with this
- License. However, in accepting such obligations, You may act only
- on Your own behalf and on Your sole responsibility, not on behalf
- of any other Contributor, and only if You agree to indemnify,
- defend, and hold each Contributor harmless for any liability
- incurred by, or claims asserted against, such Contributor by reason
- of your accepting any such warranty or additional liability.
-
- END OF TERMS AND CONDITIONS
-
- APPENDIX: How to apply the Apache License to your work.
-
- To apply the Apache License to your work, attach the following
- boilerplate notice, with the fields enclosed by brackets "[]"
- replaced with your own identifying information. (Don't include
- the brackets!) The text should be enclosed in the appropriate
- comment syntax for the file format. We also recommend that a
- file or class name and description of purpose be included on the
- same "printed page" as the copyright notice for easier
- identification within third-party archives.
-
- Copyright 2018 Ben Anderson
-
- Licensed under the Apache License, Version 2.0 (the "License");
- you may not use this file except in compliance with the License.
- You may obtain a copy of the License at
-
- http://www.apache.org/licenses/LICENSE-2.0
-
- Unless required by applicable law or agreed to in writing, software
- distributed under the License is distributed on an "AS IS" BASIS,
- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- See the License for the specific language governing permissions and
- limitations under the License.
diff --git a/greenGridr/NAMESPACE b/greenGridr/NAMESPACE
deleted file mode 100644
index d75f824..0000000
--- a/greenGridr/NAMESPACE
+++ /dev/null
@@ -1 +0,0 @@
-exportPattern("^[[:alpha:]]+")
diff --git a/greenGridr/R/dependencies.R b/greenGridr/R/dependencies.R
deleted file mode 100644
index 3008b3c..0000000
--- a/greenGridr/R/dependencies.R
+++ /dev/null
@@ -1,4 +0,0 @@
-# State required packages
-#' @import data.table
-#' @import lubridate
-#' @import readr
diff --git a/greenGridr/R/processGridSpyFiles.R b/greenGridr/R/processGridSpyFiles.R
deleted file mode 100644
index bbc3d30..0000000
--- a/greenGridr/R/processGridSpyFiles.R
+++ /dev/null
@@ -1,19 +0,0 @@
-#' List all available 1 minute grid spy data files from a given path
-#'
-#' \code{list1mGridSpyFiles}. Lists all available 1 minute grid spy files from data repository. The functions, like most others in this package will fail
-#' if you do not have the data in a folder/directory corresponding to 'fpath'. Code borrows extensively from similar SAVE project function.
-#' This could take quite a long time if you have a lot of files. The function returns a data table with 2 columns: hhID (household id) and fullPath (full path to each file)
-#' We need the hhID as we cannot just concatinate all the files since the column headings (circuit labels) vary.
-#' @param fpath the name of the directory where the function should look
-#' @param pattern a pattern to match. Use the pattern to filter e.g. 1m (xx_at1.csv) from 30s () files
-#'
-#' @author Ben Anderson, \email{b.anderson@@soton.ac.uk}
-#' @export
-#'
-list1mGridSpyFiles <- function(fpath, pattern){
- print(paste0("Looking for files matching ", pattern, " in ", fpath))
- dt <- as.data.table(list.files(path = fpath, pattern = pattern, # use the pattern to filter e.g. 1m from 30s files
- recursive = TRUE))
- return(dt)
-}
-
diff --git a/greenGridr/R/utilities.R b/greenGridr/R/utilities.R
deleted file mode 100644
index 8e50bfe..0000000
--- a/greenGridr/R/utilities.R
+++ /dev/null
@@ -1,63 +0,0 @@
-#' Tidy long numbers
-#'
-#' \code{tidyNum} reformats long numbers to include commas and prevents scientific formats
-#'
-#' @param number an input number or list
-#'
-#' @author Ben Anderson, \email{b.anderson@@soton.ac.uk}
-#' @export
-#'
-tidyNum <- function(number) {
- format(number, big.mark=",", scientific=FALSE)
-}
-
-#' Find the path to Parent Directory
-#'
-#' Equivalent of \code{findParentDirectory}. Is useful for running a project
-#' across multiple computers where the project is stored in different directories.
-#'
-#' @param Parent the name of the directory to which the function should track back.
-#' Should be the root of the GitHub repository
-#'
-#' @author Mikey Harper, \email{m.harper@@soton.ac.uk}
-#' @export
-#'
-findParentDirectory <- function(Parent){
- directory <-getwd()
- while(basename(directory) != Parent){
- directory <- dirname(directory)
-
- }
- return(directory)
-}
-
-
-#' Installs and loads packages
-#'
-#' \code{myRequiredPackages} checks whether the package is already installed,
-#' installing those which are not preinstalled. All the libraries are then load.
-#'
-#' Especially useful when running on virtual machines where package installation
-#' is not persistent (Like UoS sve). It will fail if the packages need to be
-#' installed but there is no internet access
-#' @param ... A list of packages
-#' @param repository The repository to load functions from. Defaults to "https://cran.ma.imperial.ac.uk/"
-#' @importFrom utils install.packages
-#'
-#' @author Luke Blunden, \email{lsb@@soton.ac.uk} (original)
-#' @author Michael Harper \email{m.harper@@soton.ac.uk} (revised version)
-#' @export
-#'
-myRequiredPackages <- function(..., repository = "https://cran.rstudio.com"){
-
- packages <- c(...)
-
- # Find if package isn't installed
- newPackages <- packages[!(packages %in% utils::installed.packages()[,1])]
-
- # Install if required
- if (length(newPackages)){utils::install.packages(newPackages, dependencies = TRUE)}
-
- # Load packages
- sapply(packages, require, character.only = TRUE)
-}
diff --git a/greenGridr/README.md b/greenGridr/README.md
deleted file mode 100644
index 04e81ba..0000000
--- a/greenGridr/README.md
+++ /dev/null
@@ -1,11 +0,0 @@
-# greenGridr
-
-Package of functions to process [NZ GREEN Grid](https://www.otago.ac.nz/centre-sustainability/research/energy/otago050285.html) data.
-
-See package [DESCRIPTION](DESCRIPTION) file for (some) more info.
-
-### Terms of code re-use
-
-Read the [License](LICENSE) file.
-
-[YMMV](http://en.wiktionary.org/wiki/YMMV)
diff --git a/greenGridr/man/findParentDirectory.Rd b/greenGridr/man/findParentDirectory.Rd
deleted file mode 100644
index ad0ce5c..0000000
--- a/greenGridr/man/findParentDirectory.Rd
+++ /dev/null
@@ -1,19 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utilities.R
-\name{findParentDirectory}
-\alias{findParentDirectory}
-\title{Find the path to Parent Directory}
-\usage{
-findParentDirectory(Parent)
-}
-\arguments{
-\item{Parent}{the name of the directory to which the function should track back.
-Should be the root of the GitHub repository}
-}
-\description{
-Equivalent of \code{findParentDirectory}. Is useful for running a project
- across multiple computers where the project is stored in different directories.
-}
-\author{
-Mikey Harper, \email{m.harper@soton.ac.uk}
-}
diff --git a/greenGridr/man/hello.Rd b/greenGridr/man/hello.Rd
deleted file mode 100644
index 0fa7c4b..0000000
--- a/greenGridr/man/hello.Rd
+++ /dev/null
@@ -1,12 +0,0 @@
-\name{hello}
-\alias{hello}
-\title{Hello, World!}
-\usage{
-hello()
-}
-\description{
-Prints 'Hello, world!'.
-}
-\examples{
-hello()
-}
diff --git a/greenGridr/man/list1mGridSpyFiles.Rd b/greenGridr/man/list1mGridSpyFiles.Rd
deleted file mode 100644
index 11c4631..0000000
--- a/greenGridr/man/list1mGridSpyFiles.Rd
+++ /dev/null
@@ -1,22 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/processGridSpyFiles.R
-\name{list1mGridSpyFiles}
-\alias{list1mGridSpyFiles}
-\title{List all available 1 minute grid spy data files from a given path}
-\usage{
-list1mGridSpyFiles(fpath, pattern)
-}
-\arguments{
-\item{fpath}{the name of the directory where the function should look}
-
-\item{pattern}{a pattern to match. Use the pattern to filter e.g. 1m (xx_at1.csv) from 30s () files}
-}
-\description{
-\code{list1mGridSpyFiles}. Lists all available 1 minute grid spy files from data repository. The functions, like most others in this package will fail
- if you do not have the data in a folder/directory corresponding to 'fpath'. Code borrows extensively from similar SAVE project function.
- This could take quite a long time if you have a lot of files. The function returns a data table with 2 columns: hhID (household id) and fullPath (full path to each file)
- We need the hhID as we cannot just concatinate all the files since the column headings (circuit labels) vary.
-}
-\author{
-Ben Anderson, \email{b.anderson@soton.ac.uk}
-}
diff --git a/greenGridr/man/myRequiredPackages.Rd b/greenGridr/man/myRequiredPackages.Rd
deleted file mode 100644
index 6787b75..0000000
--- a/greenGridr/man/myRequiredPackages.Rd
+++ /dev/null
@@ -1,27 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utilities.R
-\name{myRequiredPackages}
-\alias{myRequiredPackages}
-\title{Installs and loads packages}
-\usage{
-myRequiredPackages(..., repository = "https://cran.rstudio.com")
-}
-\arguments{
-\item{...}{A list of packages}
-
-\item{repository}{The repository to load functions from. Defaults to "https://cran.ma.imperial.ac.uk/"}
-}
-\description{
-\code{myRequiredPackages} checks whether the package is already installed,
- installing those which are not preinstalled. All the libraries are then load.
-}
-\details{
-Especially useful when running on virtual machines where package installation
- is not persistent (Like UoS sve). It will fail if the packages need to be
- installed but there is no internet access
-}
-\author{
-Luke Blunden, \email{lsb@soton.ac.uk} (original)
-
-Michael Harper \email{m.harper@soton.ac.uk} (revised version)
-}
diff --git a/greenGridr/man/tidyNum.Rd b/greenGridr/man/tidyNum.Rd
deleted file mode 100644
index 5e5d6c3..0000000
--- a/greenGridr/man/tidyNum.Rd
+++ /dev/null
@@ -1,17 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/utilities.R
-\name{tidyNum}
-\alias{tidyNum}
-\title{Tidy long numbers}
-\usage{
-tidyNum(number)
-}
-\arguments{
-\item{number}{an input number or list}
-}
-\description{
-\code{tidyNum} reformats long numbers to include commas and prevents scientific formats
-}
-\author{
-Ben Anderson, \email{b.anderson@soton.ac.uk}
-}
diff --git a/greenGridr_0.1.0.tar.gz b/greenGridr_0.1.0.tar.gz
deleted file mode 100644
index 25150e084d0d851ef684358b97db2a3d9a16ab5a..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001
literal 5184
zcmV-G6u;{qiwFP!000001MOUUa~n63_uu>!2)C{*)s1LM)+13iS79XD=ABKcMERUt
zlG_4jKoaYj0T-AN&2{;^Uw7j%7?M_eby?l*o~9B@91a?de*U_F(Oe5rzSJ_)&n}0P
zi<{B)?dWR!<afRLaGf3>)6cWh6Z+XdvY+8PJUTgka`^n{tbcTJ)IU6X(m#Cu93E%=
zCl7Gdrs5h{nTqn>=isr~?8!geb<NZFd@jz}JQzafcD;lf?wii7taAAHqAt@)s?xBT
z(rl?!DvXikoQ?m3z4T-8{+~r!v5Z%|^Y20%7;(<}y~AF=GpMVD(&y|4QL;gq!I!G+
zyy3E};D5341^eT)$KCJW8&#>Y$J1W@{$Dzm!lYU*E24b65W5*jRi497kuiZkwM=ET
zhP$Py3mQu-(pm&h7c7-Jt!2g3jQ#lIk4Q6Hi9Ck|8m8`qW}GdBmMXJPutJs90%W08
z!G024AF@i(FYKt-VQ?X5o*AAS6>+pswGj)IXUx?4POKR$lvT122XLQdlIykQ4!AT+
zk;<7&@rE!xAS(@9TGb%^JDCXs%o#zv&w`eK9j7EB4=Z`kDjbZIdu*&K0iSsV{|Gx9
zeD|kPRexf#O!GPeMrBFgy6JkI*D@8Q0b>}zE%?HHW=_$t^nPbprYZxmowK*MFAl!$
zyykyhUjq4aR_R)F#zJJ~LKRDybF0Eqb)2bX=M4P+>x2IB!O<z}AD<r`oj?Bu=v;iu
zz&$%p9<Sg1YTW+W>(Rw<JQ@D}bKD>Qk4_H{PksD9Jc8dLBb*+eJ;wisxY%!9ZCCHy
z^JEkS685jWtTB!q_4~)49ki&b<@vK`tJSK<X_}tW^Jlr8$~^1fz}w-?n+Y3?FWJS_
z_;Q5kWWrut-LSWlVZv^P*Ed&}Z!hq6LQh?eCbu`EAKu~}B5>GamtrPMNpZ2)aolv>
zin`1!c%HLDa2xF^p$i)`AzNg!$$1c*6Q%`3)vTr<n>bSVY$gpPnQ2X_g+r9ZDItVT
z*K8tONQNA-(5jv<*f$ufZ8TPCU5K*U<V)!-#!|IhYdK#)pkG10WSF|j3ey^=%qss%
z^Eo=ZMo_$mN#~lwK*-%yquGc7G3PlO66q}_>Jk@7+zZB2qT;y#F~GBqjDiOogAy_n
zO$`FAw8|64weTNuVmiUq;N2Q?K73a|f_0SKgKQ<Mg{5OB?6DV0+XPkXr2>m-q#6|N
zb<}lKy0jF-_T;`Ds#ZcLpgxU>8tBQ={+?h4O*v*{c+OF=Uy%efD|iV>3zdiSni^1q
zWh`N<g`nk6*Oq%uv}4JvBw7<t*^|HtsmCnjl5)75fiwYaq)2-2r2kL*G@SzRSiyTj
zbp=tW#B7Ud(!zL(Koa5^2qBfA$`<vA&qn1xsk+PdU@ZQoyZf=$;XjlK0F4@HX%^du
zBOpEix02u>@Lfn_$l%G&tP_x0woGjTv!&pI;9kY1r7g9X39Vr`eLEwGzsD&G02r_|
z!VktP*n$@P8k`V7MFo(jkT^T&(WqIqLh~{-At)sS>3iQJLXM1mAo2b`lk-~B_n?+s
zMB(FViqLMGbzZLRJy1uTlYbCMEJV8CC2;K>1gxSo_$2oRMR#)daR#8yiigN0?FBj-
z8_P@ySHbUU>Oe3qa}JgOYk=FW1;^0~R(fZnHvvcMyM+KK$|@)ZqGi8R`u$c=Siw!=
znBovxTH^wMA>A^916a|yWfeSwKyt?c4^DIM|502@Fq)zPrrenl4{^aqHxL6n9Ku_S
zUoosy73LO_kmuHs*n<U#54>2y%!sQko({lwuv`k5`2#ppu2%bv6fU6@xC1HP35EhO
z-AxO?Id;pyt=>_xGVqK~xk2TX<cb;2fz}V!V`CLgMe0IdSS@6_h=KtqtAZQ=o~gy1
zBvqmngJ_(eKq17ZO8ZYh!l^m-CPxgjoG@T1Bz+E(shpewhRL}sVU}&3Z^vUFr)Dkp
zPuQmTob=F|o$iRd%Nkk~P#}8$6icqjQcy0mj6!IUuWf~cf}4W1pq-Sw5c^)~P-O}|
z<0&PHB+8LNs9Q{-bcC8UTED<h?sEK2jc@uuaM@_SAVBAEK9>eQkXTD6WW$+5BA$}6
zvY}D%{pXlZBB!V@>MNK!_hH-AQ-~cdczE1F)<v8Xd(IVTB8uZ%u)=GZ(%rq;A_giL
zm1%mk_o)D3&Oj8O2QOci?O8Xhsq1Ljd>_Ix46+>o1;IE$Elhb%cC^wst|ahLmrnW&
zy&x94Xat3Fs!Zc7B!83Kn~Fm0isyj;8lE5`O6)tpAX5RgC}jmGWY(q<g^5Er<lI_d
z3P~wPx+kpqG4olp60lY*^dt%+Eh~tmjdBBwo7T4JLo*f>FCC10M-i_{P2z(WLVK;=
z9<dd(lxeMM1I}A;{T@S~ZqSj3T*AnCNwFVH5p_g@-D!y!th!^6H)pZ0_PX0Hyn(O7
zvb_iXCgh0)i1D%5n3OGmnJE<4U>~WVNDfTL^E6Iq#9wN#pB$%670BDBYXrQJ``JKr
z)MGCZR^hZ4Vfh|eu}N){tFzUe#Z2U8aa5*0SR^2ZAq03P6i2uKz@hDfEky;A@#Y7i
zFV9vIu|}!N1Jb;K730SPKs|bng_BzIyjma3w17_%fZd%+F_3R%b65Z2gudE>5#VD>
zwBxNv*M#$BJ%zC#MKIK5&cV>b9pKrfT0?gnu!!rn80LpqOkjCy#vSRLVvAMK^GHG0
z9E0vZfOhs^m{?ZmU{G>Y9wGsQ#uh~TY-!gTX%FB!5L@s&K`75NM0K>9%@F575)e6r
zU;8ga6s0Sxm=FgXP<E)0!i--Tiooi~&&rp}9Lr5rg3?LK7`q&6Y0f3c+ddmD4x~s#
zV(EssSqki-axKX_XBwi9uV{qyxi5D7J+lvGuquVih!Fk&kpxsv!!`%_1=$MMWm{n1
zg1k0!Zi*GE!sogk8_iJvp%yX_snDi_QYtyOEbuwUuPMm6!hNqvSOHsWWy}Ey4409r
z8u63;44UUG=POgo3YVITxlIDDnf$K7*BI#9QSrV2M>)YVZd|F|&`BHRto^dQJ_<sr
zK*mC`wk3MV<cm?~DZbEXe9WahkE(2TKo>>rd0XMe12$~Pd*chz1!`C)W;PTY_t=ey
zJ3~F1y5Q?3vTa5oh=bB&n^ru!2j!7U5H`YOH3T`bBSbXtQ-zG&E}Lx%|4bxHno@`a
z(wJ5ugw^s)<xmsZ{O)7dc_-9W`*x)@SlS%<MfPmH0cw@7L=0Ln^bOS^URw+0lpi)L
ziEk;5`Z=f3oVIb(KxwR_uzt5q9gQXg<%2BIPHgpPqUkZj1(QaaSh~+i7{bzN&zwdx
zYk}KYiO0=R2~X7laJ0F&XyPzoV-N{?Sd$$SXWa>g#Y`Y>N+K{pCR#P_=GJCg5IgwU
z45@A8W}~O4LCj@}04-!0TqcUsdYrDB#N`qE=0e*-%l0v71^v6i4^`bAU)_!_hFx&J
z4;9H9-OkN{kUN?u_O2)d?C_K=$&$VzQoi)$phKQfjoBET*eO;FO1OC$i{Aw`iVSuk
zw1nhK<QkFLE#aMVC1V2`x!?xNsklq;hBV#^zz8Ni_iS>{V<YQELM^K@_ww*<9L!rr
z7W;L(0mbC3i8Gio=S>FOrmu9eEoJVpUex7swZRT4%{DxR00eIClCprH&JJ*q>!6zw
z`*Tn*Bd`!$_h?%ewT|&?Tg;KZ2|U<RIyCv9hG>dcL?~@`oNrOYTDN-hA#Lz1!{0U5
zJF!JZR6OfWLSNzuiIu(qMZ{~OdJ5YcStiP?E<9{)S&R=Xw*K?#+>B`?VBf?5G3<0E
z>Q+I`WO0D5H|@^~=5zZNJ4Mt~6$D$US#JTrM&m0|1rl-Vh*`##oJ7>xLb*E-eAC+7
zv1Me*M0-VQwu76bahn+xi|fynB5`*vxDwIBsiSUQ!@$;VRVxbz)Q!Dlg3@S5t+q_4
zR5mJsmO@Ub*l{}nwpMLWpy{!<WsXM^P-)@=Oq5D2e~DtWK@$2K>rE6HHM62N)@NH+
z4bsOMHyb$?>P_SB^M9u_b1;k8j10z-u+TO0yN`DKSXDSE?A}m*nJQb9q1(=>yu&m?
zteG0pff1Ro8$sv>kxJY|7G2l|DM&GtM7YIIhQD?mLKT_#AkrwrQ{W8((PGZE-B;SI
zJ=|WvDTG1~K>V>3kE1h1k+ZUpJK7OK!MhDL3t#*;1~0I077z_~y@bBQp1%8Nj~t;5
z+lRf;dXAH(>*UH*E&ftVw|j&M-GELorISh_@v8#2r;!_waz<y0rcM>1=)g|xR)5xe
zlh>Qe20K!KmDE{}T}nfx6K>kh*gL?VAeVJ;g23u@Z3|ecys^Y;!T@QJikGGfmNW_r
zCxHU1d&ny`4K_>E_-Slkwv@Y%eJu$2-NA&7CSCT!U^1F`;l3N)zPfsQ%iaxcZU*Dq
z(Qv}9ZsKkEs~2oA{)zqDXnYB9N7^0W57-?w%}ON2l`LwLHXcNMQtso_8j4&J6%|B!
zJH&!8Z%4PUhY3i1d@vfnxEYOK4&MyNw+VYQyt#M<Tn>I1y&m2EL?-lNbUPkS?D2tt
zqj5dB0foJNJ-A`lZ*Q)zCPSNT?QUU?I}5=75+;?j>p(j*wkm9!3usQOrIrZKX~8qF
zE_{USuZg%(ztnacjR8!A%k|+}8j9>jr81PsHmJLOR_eya8?D>LthK$bd+^zd6bHSQ
zd@6I=JRf1^WdMK5iukZJ;8sq}PT&zL?Won_ce22Ms<>rPig_*peWhYQ3A^1%tCbr%
zKfh`3dlo2QPd}Ga0(8XO9QzSr-@;E>;RysoyW_k4!$!|m`oN})S6MD;V%HHM)$)SR
z+dX_7?T-XBhXd$bUejcQ$HAch*xIcG1TeOziyLx|sE^Rta|6DyU9Ih&IcD*Yt8v$O
zv(P1J)*;5!_Kqx_GNZT}cMSIK-4pj*;j(jO4R)?nwvu_=JA4mGSuK|wyM%}dYGi!I
zWnOEWjd<=49oj=2<?fRpxC?;B8_UB^EDRV9+93k;%|@J~5t`{dyOXp@I&;T2zyq8R
z{NV;i-g>|{JvK-&C!iF3<i(i>O`?vR;@twFd)r+%Hw*9GZu2NKT_|O{pw#JXZMIX-
z6>!^3P&|Q9M;!7p6?PFz+Xi*fZ%uY5iV}~OGz~E;*4*>X)HHWpD8enzFzg`mwOcK)
z9`qMiUrE#2?tud1m0DpXWJ}2)Fp_6PxLF^aXesk(HzZ(gw=F_VTz4A-X%j|?UqU*~
zE=m*8n@&+=2CgTJHItm#_>2y3{heep3$n??49XQdf==0Px6ZjPC=z*a9i-T}bFFo=
zTjn~)5R;)Q$70nsQIqYy@pSFLMzf$bN}!Qx0Q0NJ8Y9>kc(DdN9A9Ey-E|C(z8_p)
z!y}^~&ryZcEr5u+cE=Z5r*z>vVr3QflJI!l7Y<0=F^YCK!NY0=UZbH5uY6Y{X)5`d
z6nSPCBnWVJ8}z5RODVuIyFdThZHg4^Ot@^f_Qpg})m42_CEa6tm#Tak&I?37>WP1~
zZx3NpnQ8!DfF%IL4}7@lAWGZO-YoixSwlSk5H>=osJ9G2oDlX<HzWgk+Vx3&6sKpc
z-GG%LVzp&gb99|DxZ7Htisr})?T~s-3=Zr9bJV!T7~I8N(cbxVhhOYTb|b@nypx>Y
zcMa{Crpdu|y1*T4YYfe1A|AqSpVIF%p(2Zlq_({z@d;42hYy59miyl#315Jq=i7Yc
z`sE(C%hJ`I6bpk11xyo_`D#k-G2ZIYdCTRMx9{INW9kk)AK=k-9P%ZQ{BvN#9Wv|0
zZON9rJbQR%A$s6*ko$j#w>{D(u}y?%vEZ#bykC&>a$e(01#^7eq1-&m=h`C;KsVd#
z>OG#&|9d|FKOVdpPOb+R!-qZp57+ZEcmDtQ^z7^y-~Z~L^&ijwKg0#$0<h*aBzJK7
zz3zYh{PQ`_mkWOW>#zUZ-G6lG|406R^XzXl2l@TU$>;sQ-w*HqoSpRX{h$6Z`2WeH
z|39q$GlA!w0U=8Og*Oit{|}Fv_rFg1sQ=^B{^4W%e~9Z3Y(jf30r0w)Jx%8iPuchO
zK$d-Fw4xJJ(cQeBg56-<6y3zFbN!e${yzP`uCVd&`#S#@y#If4de+4MqZ9Q1qr*r4
ze;EIN%5G)0W_0?Ztcxj>@Zitr(!b!5^N$sLJFbgQ;MunMVOr1HBG?|B!Bz;jo2E-m
z8w-Y+RJt~V>z#P&-{UrA;mFw62A0^Qwx6*z3>C6}*1k8;>PaN*7kn=y|G4|_1bm`#
z7TqEhw+!~jgYb_0o}Fu-ee5vDoV%5<shsz4>+!p8(oLd8eD`ATdNSPaeCi<m7qZOU
z8}itxQ0$u1>3~bxBv5+o_#Z-Sz2mvtCA4y#!C3ovc=}V1jSMzMW_512E$fmBaqj<;
z01{)2)9FlB;Ok|}T!gl~aVKJ{=uZ#e30<IV`(4fXh0M)~zTQ@dTLRLczLh`i=$UMe
zrBYMO$<jC2==}pWg@2GNn}oI-KCG1rTNp28^{Sp?*H0N4iOQ?`jeIZG>=oBbREJY_
z(Ob}s`xL!Ht}Uh8@AgsWS@ghMRI6+c58|$H3t$gl#lrRPg@^XpSKqN{bbCC0*mxfM
zNuN5{*{o`)t)eeJb^b5L|ALo)n+o8|@xQPCkB;H%NBsZr`d^4VSG}9;LHj>PTlznS
z0gw6rA+BFAXniELf9m|gbIDEkRN-I#`S=PyCAiO-XJ5hH+CX{mu|p5-VJ!P4+Sd5k
uxyIcJ!=Acf^!CYDPkZ>Bd(+m$gC7z2<MntwUXR!R&h=mPI5V37Pyhe~vL!wM
--
GitLab