---
title: "Untitled"
author: "Jason Freels"
date: "2/5/2020"
output: html_document
---

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

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r cars}
dat = teachingApps::gadget_clean_columns(mtcars)
```

## Including Plots

You can also embed plots, for example:

```{r pressure, echo=FALSE}
DT::datatable(as.data.frame(dat$data))
```

Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.


```{r}
plot(dat$data[-1])
```

