#' Calculate maximum altitude
#'
#' @keywords internal
#' @author James P. Duffy
#' @export
max_alt <-
function(x){
# round altitude data
dat <- round(as.numeric(x),0)
# remove 0 values
dat <- dat[dat > 0]
# check to see if any values left
if(length(dat)==0) {
# if all were 0's output 0
max_alt <- 0
} else {
# calculate the mode altitude
max_alt <- max(dat)
}
return(max_alt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.