library(dplyr, warn.conflicts = FALSE, quietly = TRUE)
read.csv("saltonsea.csv", header=TRUE, comment.char = "#") %>%
rename(Lon.deg = Long, Lat.deg = Lat) %>%
select(-Elev) -> saltonsea
save(saltonsea, file="saltonsea.rda", compress='xz')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.