locs = params$locs locs = locs[!is.na(locs$lat), ] n = nrow(locs)
There are a total of r n
locations in your view.
Latitude range is r min(locs$lat)
to r max(locs$lat)
.
You can also embed plots, for example:
data <- locs$altitude n = length(data) data <- as.numeric(data) if(n < 1) return("no data") hist(data, main = "Elevation", xlim = c(0,3600))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.