first commit

.Rbuildignore

+^LICENSE\.md$

.Rprofile

+repository <- "viz"
+
+if (grepl(repository, getwd())){
+  path <- unlist(strsplit(getwd(), repository))[1]
+  renv::load(file.path(path, repository))
+} else {
+  cat(paste("WARNING: The repository", repository, "is not in the current path. Cannont load the renv environment.\n"))
+  cat("To remove this warning, set the correct value for 'repository' in your .Rprofile.\n")
+}
+
+suppressMessages(require(colorout))
+options(prompt = "R> ", digits=4, continue = "+  ", useFancyQuotes = FALSE)

.gitignore

+# Project specific
+**/tests/*.pdf
+
+# Logs 
+log/
+*.log
+*.coverage
+
+# Mac specific
+.DS_Store
+.DS_Store?
+
+# R
+*.Rproj.user
+
+# Open cached files 
+*.m~
+*.*swp
+*.*swo
+
+# Compiled sources
+*.com
+*.class
+*.dll
+*.exe
+*.o
+*.so

DESCRIPTION

+Package: tableExtra
+Title: Draws an awesome table
+Version: 0.0.0.9000
+Authors@R: 
+    person(given = "Yoann",
+           family = "Pradat",
+           role = c("aut", "cre"),
+           email = "yoann.pradat@centralesupelec.fr")
+Description: Draws an awesome table.
+License: Apache License (>= 2.0)
+Encoding: UTF-8
+LazyData: true
+Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.1.1
+Suggests: 
+    testthat
+Depends: 
+    R (>= 2.10)

LICENSE.md

+Apache License
+==============
+
+_Version 2.0, January 2004_
+_&lt;<http://www.apache.org/licenses/>&gt;_
+
+### 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 2020 Yoann Pradat
+
+    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.

NAMESPACE

+# Generated by roxygen2: do not edit by hand
+
+S3method(str,gtable)
+export(combine)
+export(extra_table_grob)
+export(gtable_cbind)
+export(gtable_combine)
+export(gtable_rbind)
+export(ttheme_awesome)
+import(grid)
+importFrom(gtable,gtable_add_grob)
+importFrom(gtable,gtable_add_rows)
+importFrom(gtable,gtable_matrix)
+importFrom(utils,modifyList)
+importFrom(utils,str)

R/gtable_utils.R

+## Misc. gtable functions
+## Note: these functions were copied from the gridExtra package.
+
+##'Prints summary information on gtable objects
+##'@param object a gtable
+##'@param ... unused
+##'@importFrom utils str
+##'@method str gtable
+##' @noRd
+##'@export
+str.gtable <- function(object, ...){
+  cat(c("gtable, containing \ngrobs (", 
+        length(object[["grobs"]]), ") :"), sep="")
+  utils::str(vapply(object$grobs, as.character, character(1)))
+  cat("layout :\n")
+  utils::str(object[["layout"]])
+  cat("widths :\nunit vector of length", 
+      length(object[["widths"]]), "\n")
+  cat("heights :\nunit vector of length", 
+      length(object[["heights"]]), "\n")
+  for(element in c("respect", "rownames", 
+                   "name", "gp", "vp")){
+    cat(element, ":\n")
+    utils::str(object[[element]])
+  }
+}
+
+
+##'Combine gtables based on row/column names.
+##'@param ... gtables
+#' @aliases combine
+##'@rdname combine
+##'@param along dimension to align along, \code{1} = rows,
+##'\code{2} = cols. 
+##'@param join when x and y have different names, how should the difference be resolved? 
+##'\code{inner} keep names that appear in both, 
+##'\code{outer} keep names that appear in either, 
+##'\code{left} keep names from \code{x}, 
+##'and \code{right} keep names from \code{y}.
+##'@export
+gtable_combine <- function (..., along = 1L, join = "outer") 
+{
+  gtables <- list(...)
+  Reduce(function(x, y) combine_2(x, y, 
+                                    along = along, 
+                                    join = join),
+         gtables)
+}
+
+
+#' @rdname combine
+#' @export
+combine <- function (..., along = 1L, join = "outer") {
+  .Deprecated("gtable_combine")
+  gtable_combine(..., along=along, join=join)
+}
+
+
+z_normalise <- function (x, i = 1) 
+{
+  x$layout$z <- rank(x$layout$z, ties.method = "first") + i - 
+    1
+  x
+}
+
+z_arrange_gtables <- function (gtables, z) 
+{
+  if (length(gtables) != length(z)) {
+    stop("'gtables' and 'z' must be the same length")
+  }
+  zmax <- 0
+  for (i in order(z)) {
+    if (nrow(gtables[[i]]$layout) > 0) {
+      gtables[[i]] <- z_normalise(gtables[[i]], zmax + 
+                                    1)
+      zmax <- max(gtables[[i]]$layout$z)
+    }
+  }
+  gtables
+}
+
+
+insert.unit <- function (x, values, after = length(x)) {
+  lengx <- length(x)
+  if (lengx == 0) return(values)
+  if (length(values) == 0) return(x)
+  
+  if (after <= 0) {
+    unit.c(values, x)
+  } else if (after >= lengx) {
+    unit.c(x, values)
+  } else {
+    unit.c(x[1L:after], values, x[(after + 1L):lengx])
+  }
+}
+
+
+##'rbind gtables
+##'@rdname bind
+##'@param ... gtables
+##'@param size how should the widths be calculated?
+##'\code{max} maximum of all widths
+##'\code{min} minimum of all widths
+##'\code{first} widths/heights of first gtable
+##'\code{last} widths/heights of last gtable
+##'@param z optional z level
+##'@export
+gtable_rbind <- function(..., size = "max", z = NULL) {
+  gtables <- list(...)
+  if (!is.null(z)) {
+    gtables <- z_arrange_gtables(gtables, z)
+  }
+  Reduce(function(x, y) rbind_2(x, y, size = size), gtables)
+}
+
+##'cbind gtables
+##'@rdname bind
+##'@export
+gtable_cbind <- function(..., size = "max", z = NULL) {
+  gtables <- list(...)
+  if (!is.null(z)) {
+    gtables <- z_arrange_gtables(gtables, z)
+  }
+  Reduce(function(x, y) cbind_2(x, y, size = size), gtables)
+}
+
+rbind_2 <- function(x, y, size = "max", height=NULL) {
+  stopifnot(ncol(x) == ncol(y))
+  if (nrow(x) == 0) return(y)
+  if (nrow(y) == 0) return(x)
+
+  if (!is.null(height)){
+    x <- gtable::gtable_add_rows(x, height)
+  }
+  
+  y$layout$t <- y$layout$t + nrow(x)
+  y$layout$b <- y$layout$b + nrow(x)
+  x$layout <- rbind(x$layout, y$layout)
+  
+  x$heights <- insert.unit(x$heights, y$heights)
+  x$rownames <- c(x$rownames, y$rownames)
+  
+  size <- match.arg(size, c("first", "last", 
+                            "max", "min"))
+  x$widths <- switch(size,
+                     first = x$widths,
+                     last = y$widths,
+                     min = unit.pmin(x$widths, y$widths),
+                     max = unit.pmax(x$widths, y$widths)
+  )
+  
+  x$grobs <- append(x$grobs, y$grobs)
+  
+  x
+}
+
+cbind_2 <- function(x, y, size = "max", width=NULL) {
+  stopifnot(nrow(x) == nrow(y))
+  if (ncol(x) == 0) return(y)
+  if (ncol(y) == 0) return(x)
+
+  if (!is.null(width)){
+    x <- gtable::gtable_add_cols(x, width)
+  }
+  
+  y$layout$l <- y$layout$l + ncol(x)
+  y$layout$r <- y$layout$r + ncol(x)
+  x$layout <- rbind(x$layout, y$layout)
+  
+  x$widths <- insert.unit(x$widths, y$widths)
+  x$colnames <- c(x$colnames, y$colnames)
+  
+  size <- match.arg(size, c("first", "last", 
+                            "max", "min"))
+  
+  x$heights <- switch(size,
+                      first = x$heights,
+                      last = y$heights,
+                      min = unit.pmin(x$heights, y$heights),
+                      max = unit.pmax(x$heights, y$heights))
+  
+  x$grobs <- append(x$grobs, y$grobs)
+  
+  x
+}
+
+
+combine_2 <- function(x, y, along = 1L, join = "outer") {
+  aligned <- align_2(x, y, along = along, join = join)
+  switch(along,
+         cbind_2(aligned$x, aligned$y, 
+                                  size="max"), 
+         rbind_2(aligned$x, aligned$y, 
+                                  size="max"),
+         stop("along > 2 no implemented"))
+}
+
+
+
+align_2 <- function(x, y, along = 1L, join = "outer") {
+  join <- match.arg(join, c("left", "right", "inner", "outer"))
+  
+  names_x <- dimnames(x)[[along]]
+  names_y <- dimnames(y)[[along]]
+  
+  if (is.null(names_x) || is.null(names_y)) {
+    stop("Both gtables must have names along dimension to be aligned")
+  }
+  
+  idx <- switch(join,
+                left = names_x,
+                right = names_y, 
+                inner = intersect(names_x, names_y),
+                outer = union(names_x, names_y)
+  )
+  
+  list(
+    x = gtable_reindex(x, idx, along), 
+    y = gtable_reindex(y, idx, along)
+  )
+}
+
+
+gtable_reindex <- function(x, index, along = 1L) {
+  stopifnot(is.character(index))
+  if (length(dim(x)) > 2L || along > 2L) {
+    stop("reindex only supports 2d objects")
+  }
+  old_index <- switch(along, rownames(x), colnames(x))
+  stopifnot(!is.null(old_index))
+  
+  if (identical(index, old_index)) {
+    return(x)
+  }
+  
+  if (!(old_index %contains% index)) {
+    missing <- setdiff(index, old_index)
+    # Create and add dummy space rows
+    
+    if (along == 1L) {
+      spacer <- gtable(
+        widths = unit(rep(0, ncol(x)), "cm"), 
+        heights = rep_along(unit(0, "cm"), missing),
+        rownames = missing)
+      x <- rbind(x, spacer, size = "first")
+    } else if (along == 2L){
+      spacer <- gtable(
+        heights = unit(rep(0, nrow(x)), "cm"), 
+        widths = rep_along(unit(0, "cm"), missing),
+        colnames = missing)
+      
+      x <- cbind(x, spacer, size = "first")
+    }
+  }
+  
+  
+  # Reorder & subset
+  
+  switch(along, 
+         x[index, ],
+         x[, index])
+}
+
+
+gtable_remove_grob <- function(x, pattern, which = 1L, 
+                               fixed = FALSE, trim=TRUE){
+  matches <- grep(pattern, x$layout$name, fixed = fixed)
+  tokeep <- setdiff(seq_len(length(x)), matches[which])
+  x$layout <- x$layout[tokeep, , drop = FALSE]
+  x$grobs <- x$grobs[tokeep]
+  if(trim)
+    x <- gtable_trim(x)
+  x
+}

R/gtables.R

+## Note: this functions is modified copy of gtable_table from the gridExtra package.
+
+
+#' Build a table with text grobs.
+#'
+#' This function is a copy of the internal function \code{gtable_table} of gridExtra package. 
+#'
+#' @param d data.frame or matrix
+#' @param width optional \code{unit.list} specifying the grob widths
+#' @param heights optional \code{unit.list} specifying the grob heights
+#' @param fg_fun grob-drawing function
+#' @param fg_params  named list of params passed to fg_fun
+#' @param bg_fun grob-drawing function 
+#' @param bg_params  named list of params passed to bg_fun
+#' @param padding \code{unit.list} object specifying the padding between adjacent cells.
+#' @param name optional name of the grob
+#' @param vp optional viewport
+#' @return A gtable.
+#'
+#' @importFrom gtable gtable_matrix gtable_add_grob
+#'
+#' @author Yoann Pradat
+#' @keywords internal
+gtable_text <- function(d, widths, heights,
+                        fg_fun = text_grob, fg_params = list(),
+                        bg_fun = rect_grob, bg_params = list(),
+                        padding = unit(c(4, 4), "mm"),
+                        name = "table", vp = NULL){
+  
+  label_matrix <- as.matrix(d)
+  
+  nc <- ncol(label_matrix)
+  nr <- nrow(label_matrix)
+  n <- nc*nr
+  
+  ## formatting parameters will be recycled iff 
+  ## there are fewer elements than needed
+  rep_ifshort <- function(x, n, nc, nr){
+      if(length(x) >= n){
+        return(x[1:n]) 
+      } else # recycle 
+        return(rep(rep(x, length.out = nr), length.out= n)) 
+  }
+  
+  fg_params <- lapply(fg_params, rep_ifshort, n = n, nc = nc, nr = nr)
+  bg_params <- lapply(bg_params, rep_ifshort, n = n, nc = nc, nr = nr)
+  
+  fg_params <- data.frame(fg_params, 
+                          label = as.vector(label_matrix), # colwise
+                          stringsAsFactors=FALSE)
+  
+  bg_params <- data.frame(bg_params, stringsAsFactors=FALSE)
+  
+  labels <- do.call(mapply, c(fg_params, list(FUN = fg_fun, 
+                                              SIMPLIFY=FALSE)))
+  bkgds <- do.call(mapply, c(bg_params, list(FUN = bg_fun, 
+                                             SIMPLIFY=FALSE)))
+
+  label_grobs <- matrix(labels, ncol = nc, byrow = FALSE)
+  bkgds_grobs <- matrix(bkgds, ncol = nc, byrow = FALSE)
+
+  if(missing(widths))
+    widths <- col_widths(label_grobs) + 2 * padding[1]
+  if(missing(heights))