My First Map

My First Map

library(leaflet)

Dat <- data.frame(Income = c("My lovely home", "$114,674", "$98,545", "$95,229", "$88,504", "$87,710", "$59,656"),
                     lat = c(33.900478, 33.869768, 34.087150, 34.026142, 34.056318, 33.970766, 33.972386),
                     lng = c(-84.331919, -84.417135, -84.221044, -84.145592, -84.390413, -84.436700, -84.231986))
Dat <- Dat %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers(~lng, ~lat, popup = ~Income)
Dat

## Warning: replacing previous import by 'shiny::includeHTML' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::code' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeScript' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeMarkdown' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::is.singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::withTags' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::img' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendAttributes' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.shiny.tag.list'
## when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::knit_print.html' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChild' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeCSS' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::br' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::singleton' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::span' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::a' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagList' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::strong' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::tag' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::p' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::validateCssUnit' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::HTML' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::h1' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h2' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h3' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h4' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h5' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::h6' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagAppendChildren' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::em' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::div' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::pre' when loading 'crosstalk'

## Warning: replacing previous import by 'shiny::htmlTemplate' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::suppressDependencies' when
## loading 'crosstalk'

## Warning: replacing previous import by 'shiny::tagSetChildren' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::includeText' when loading
## 'crosstalk'

## Warning: replacing previous import by 'shiny::hr' when loading 'crosstalk'