#' Converts the waypoint column from a factor to a number so you can join it later
#'
#'
#' @param x the sf dataframe that you loaded earlier
#' @return an sf dataframe
#'
no_factor<-function(x){
x$Waypoint<-as.numeric(as.character(x$Waypoint))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.