Interactive Document

---

title: "Interact Map"

author: "buillee"

date: "2018년 7월 16일"

output: html_document

---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = TRUE)

```

```{r include=FALSE}

library(leaflet)

library(dplyr)

```

```{r}

leaflet() %>% 

  setView(lng = 127.32183600000008, lat = 36.3729804, zoom = 16) %>% 

  addTiles() %>% 

  addMarkers(lng = 127.32183600000008, lat = 36.3729804, popup = "열매마을")

```