Nothing
#' Get points at all self-intersections of a polygon
#'
#' @export
#' @param input Feature of features.
#' @template lint
#' @examples
#' poly <- '{
#' "type": "Feature",
#' "properties": {},
#' "geometry": {
#' "type": "Polygon",
#' "coordinates": [[
#' [-12.034835, 8.901183],
#' [-12.060413, 8.899826],
#' [-12.03638, 8.873199],
#' [-12.059383, 8.871418],
#' [-12.034835, 8.901183]
#' ]]
#' }
#' }'
#' lawn_kinks(poly)
#' # lint input object
#' # lawn_kinks(poly, TRUE)
#' @examples \dontrun{
#' poly %>% view
#' lawn_kinks(poly) %>% view
#' }
lawn_kinks <- function(input, lint = FALSE) {
lawnlint(input, lint)
ct$eval(sprintf("var exp = turf.kinks(%s);", convert(input)))
ct$get("exp")
}
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.