--- | |
title: "Chunk 3" | |
output: html_document | |
--- | |
# Boston employee pay in 2014 | |
```{r loading, warning=F, message=F, echo=F} | |
# load packages | |
library(tidyverse) | |
# Loading the Boston city payroll | |
payroll <- read_csv("data/bostonpayroll2013.csv") | |
payroll_total <- select(payroll, NAME, TITLE, DEPARTMENT, TOTAL.EARNINGS) | |
``` | |
```{r display_data, warning=F, message=F, echo=F} | |
library(DT) | |
datatable(payroll_total) | |
``` |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment