---
title: "HTML Widgets Showcase"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
   schools <- read.table(   'qip-visits.txt', header = T)
oh.schools <- read.table('qip-visits-oh.txt', header = T)
```

### Leaflet is a JavaScript library for creating dynamic maps that support panning and zooming along with various annotations.

```{r}
m <- leaflet()
m <- addTiles(m)
m <- addMarkers(m, 
                lng = schools$Lon, 
                lat = schools$Lat,
                popup = paste('',
                              schools$School,
                              '
', 
                              '  Visit Date: ', schools$Visit, '
', 
                              'Criteria Met: ', schools$Criteria,'
',
                              sep = ''),
                icon = icons(iconUrl = schools$Icon, iconHeight = 70, iconWidth = 70), 
                options = markerOptions(riseOnHover = TRUE, riseOffset = 500))
m <- setView(map = m, lat = 40.580585, lng = -96.59181, zoom = 5)
m
```

###  Georgia Institute of Technology


###  Massachusettes Institute of Technology


###  University of Iowa


###  University of Wisconsin


###  Stevens Institute of Technology


###  PolyTechnic Institute of New York


###  New Jersey Institute of Technology


###  Montana State University


###  University of New Mexico


###  Marshall University


###  Embry-Riddle Aeronautical University


###  University of Arizona


###  United States Military Academy


###  Defense Acquisition University


###  Louisiana Tech University


###  Michigan State University


###  North Carolina State University


###  University of Southern California


###  Virginia Tech


###  University of Rochester


###  University of Texas


###  Texas Tech University


###  Cornell University


###  University of Central Florida


###  Penn State University


###  Geoge Washington University


###  University of Washington


###  United States Air Force Academy


###  United States Naval Academy


###  University of Illinois - Champaign-Urbana


###  Daytona State University


###  Stanford University


###  Rose Hulman Institute of Technonogy


###  Arizona State University