andrewbtran

---
title: "Chunk 7"
author: "Andrew"
date: "3/10/2018"
output:
  html_document: 
    toc: true
    toc_float: true
---

andrewbtran

---
title: "Chunk 6"
author: "Andrew"
date: "7/23/2018"
output:
  html_document:
    theme: united
    highlight: espresso
---

andrewbtran

---
title: "Chunk 5"
output: html_document
---


# Departments with the highest average pay

```{r loading, warning=F, message=F, echo=F}
# load packages

andrewbtran

---
title: "Chunk 4"
output: html_document
---

```{r loading, warning=F, message=F, echo=F}
# load packages
library(tidyverse)

# Loading the Boston city payroll

andrewbtran

---
title: "Chunk 3"
output: html_document
---

# Boston employee pay in 2014

```{r loading, warning=F, message=F, echo=F}
# load packages
library(tidyverse)

andrewbtran

---
title: "Chunk 2"
output: html_document
---

```{r loading, warning=F, message=F}
# load packages
library(tidyverse)

# Loading the Boston city payroll

andrewbtran

```{r loading}
# load packages
library(tidyverse)

# Loading the Boston city payroll
payroll <- read_csv("data/bostonpayroll2013.csv")
```

Let's look at the data in R Markdown with a package called [`DT`](https://rstudio.github.io/DT/) that uses the Datatables [jquery library](https://datatables.net/).

andrewbtran

install.packages("devtools")
library(devtools)

install_github("andrewbtran/abtnicarr")
library(abtnicarr)

andrewbtran

install.packages("roxygen2")
library(roxygen2)

roxygenise()

andrewbtran

#' Population adjuster
#'
#' This function appends state population data
#' @param any_df The name of the dataframe you want to append to
#' @param state_type if state identification is abbreviations, use "Abbrev" if full state name, use "State"
#' @keywords per capita
#' @import dplyr
#' @export
#' @examples
#' pc_adjust(dataframe, "Abbrev")