index.Rmd

---
title: 'Interactive and dynamic visualization of high-dimensional data' 
degreetype: 'Doctor of Philosophy'
author: 'Nicholas S Spyrison'
degrees: 'B.Sc. Statistics, Iowa State University'
bibliography: [thesisrefs.bib]
site: bookdown::bookdown_site
link-citations: yes
---
```{r echo = FALSE, results = 'hide'}
knitr::opts_chunk$set(
  echo  = FALSE, 
  cache = FALSE,
  cache.lazy = FALSE,
  #out.width = "100%", ## this is % of page width, not % of figure size.
  out.extra = '', fig.show='hold', fig.align='center'
)

## Ensure html gitbook always takes .png figures.
#' @examples
#' nsSafeIncGraphic("./figures/ch2_fig1_penguin_splom.pdf")
nsSafeIncGraphic <- function(fp = "./dummy/figures/filepath.pdf", ...){
  ## If html output and ends in .pdf, change to .png instead
  if(knitr::is_html_output() & substr(fp, nchar(fp) - 3L,  nchar(fp)) == ".pdf")
      fp <- paste0(substr(fp, 1L,  nchar(fp) - 4L), ".png")
  knitr::include_graphics(fp, ...)
}

options("knitr.graphics.auto_pdf" = TRUE)
suppressWarnings(library(knitr))
opts_chunk$set(
  warning = FALSE, message = FALSE, echo = FALSE,
  fig.path = 'figure/', fig.align = 'center', fig.show = 'hold',
  cache = FALSE, external = TRUE, comment = "#>", dpi = 300,
  out.width = ifelse(is_html_output(), "100%", "\\textwidth"),
  cache.path = ifelse(is_html_output(), 'cache-gitbook/', 'cache-pdfbook/')
)
hook_output <-  knit_hooks$get('output')
knit_hooks$set(output = function(x, options) {
  # this hook is used only when the linewidth option is not NULL
  if (!is.null(n <- options$linewidth)) {
    x = knitr:::split_lines(x)
    # any lines wider than n should be wrapped
    if (any(nchar(x) > n)) x = strwrap(x, width = n)
    x = paste(x, collapse = '\n')
  }
  hook_output(x, options)
})
```

<!-- NOTE: docs/index.html will not be produced without content here -->
`r if (knitr::is_latex_output()) '<!--'`

# Welcome {-}

This is the website for my PhD thesis at Monash University, Australia.

A `pdf` version with proper rendering can be found [here](https://github.com/nspyrison/thesis_ns/blob/master/docs/thesis_ns.pdf), and the code creating thesis work can be found on [github](https://github.com/nspyrison/thesis_ns).

`r Sys.Date()`

`r if (knitr::is_latex_output()) '-->' ## <-- Correct this if using welcome`