Manifest_Report.Rmd

---
title: "Sample Manifest Report"
author: "Corey Cox"
date: "`r Sys.Date()`"
params:
  input: NA
  info: NA
  num_plates: NA
  plate_layouts: NA
  layout_key: NA
  types: NA
  layout_colors: NA
  facet_plates: NA
  facet_keys: NA
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(DT)
library(shiny)
library(htmlwidgets)
```
## Manifest Parameters
* Random Seed: **`r params$input$seed`**
* Controls Selected: **`r params$input$control_type`**
* Sample Balance method: **`r params$input$bal_type`**
  + Columns for Balance: **`r params$input$m_by_cols`**
  + Column for Sample ID: **`r params$input$id_col`**
  + Empty Wells: **`r params$input$empty_wells`**

## Sample & Plate Info
```{r echo = FALSE}
params$info %>% as_tibble %>% datatable(options = list(dom = 't', ordering = FALSE))
```

## Plate Layouts
```{r echo = FALSE}
tagList(params$layout_key, params$plate_layouts)
```

## Layout Facets
```{r echo = FALSE}
tagList(
  map(1:length(params$facet_keys),
      ~ lst(params$facet_keys[.], params$facet_plates[.])))
```