---
title: "Leaflet intro"
author: "Nicholas Horton (nhorton@amherst.edu)"
date: "December 19, 2017"
output: 
  html_document:
    fig_height: 3
    fig_width: 5
  pdf_document:
    fig_height: 3
    fig_width: 5
  word_document:
    fig_height: 3
    fig_width: 5
editor_options: 
  chunk_output_type: inline
---

```{r, setup, include=FALSE}
require(mosaic)   # Load additional packages here 

# Some customization.  You can alter or delete as desired (if you know what you are doing).
trellis.par.set(theme=theme.mosaic()) # change default color scheme for lattice
knitr::opts_chunk$set(
  tidy=FALSE,     # display code as typed
  size="small")   # slightly smaller font for code
```

```{r message=FALSE}
library(leaflet)
m <- leaflet() %>%
  addTiles() %>% # Add OpenStreetMap tiles
  addMarkers(lng=2.1734, lat=41.3851, popup="Barcelona")
m
```
