Nothing
#' @title Get basemap tiles attribution
#' @name get_credit
#' @description Get the attribution of map tiles.
#' @param provider provider name or provider object
#' (as produced by \link{create_provider}).
#' @export
#' @examples
#' get_credit("OpenStreetMap")
get_credit <- function(provider) {
if (is.list(provider) && length(provider) == 4) {
return(provider$cit)
}
if (is.character(provider) && provider %in% names(maptiles_providers)) {
return(maptiles_providers[[provider]]$cit)
}
return(NULL)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.