Load libraries
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(htmltools)
today <- format(Sys.Date(), "%B %d, %Y")
fatal <- "https://raw.githubusercontent.com/washingtonpost/data-police-shootings/master/fatal-police-shootings-data.csv"
df <- read.csv(url(fatal))
df <- df[sample(nrow(df), 1000), c("latitude","longitude")]
df <- df %>% rename(lat=latitude, lng=longitude)
rm(fatal)