Nothing
point_str <- function(point) {
.Deprecated("as_point_str")
paste0(point, collapse = ",")
}
as_point_str <- function(point) {
paste0(point, collapse = ",")
}
set_gh_class <- function(x, class_name = c("gh_route", "gh_spt", "gh_info", "gh_isochrone")) {
structure(x, class = c(match.arg(class_name), class(x)))
}
#toJSON_fromJSON <- function(item) {
# jsonlite::toJSON(item, auto_unbox = TRUE) %>%
# jsonlite::fromJSON()
#}
#toJSON_st_read <- function(item) {
# jsonlite::toJSON(item, auto_unbox = TRUE) %>%
# sf::st_read(quiet = TRUE)
#}
is_request_error <- function(response) {
if (response$status != 200) {
warning("Something went wrong. Returning (raw) response object.")
return(TRUE)
}
FALSE
}
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.