title: "R Notebook" output: html_notebook
vis_data$DATE %>% range()
[1] "1819-06-16" "2018-02-16"
eq_create_label <- function(dat){
loc <- dat$LOCATION_NAME_
mag <- dat$EQ_MAG_MW
dea <- dat$DEATHS
paste("<b>Location: </b>", loc,"<br>",
"<b>Magnitude: </b>", mag,"<br>",
"<b>Total deaths: </b>", dea)
}
preserve27b0da8bd99a51be
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.