#' @export
#'
qthMap <- function(dfx){
mapWorld <- borders("world", colour="red", fill="white")
g1 <- ggplot() +
mapWorld +
geom_path()
g1 + geom_point(data=dfx, aes(x=longitude, y=latitude))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.