lawn

library("lawn")

## 
## Attaching package: 'lawn'
## 
## The following objects are masked from 'package:stats':
## 
##     aggregate, filter
## 
## The following objects are masked from 'package:base':
## 
##     intersect, sample, union, within

library("jsonlite")

## 
## Attaching package: 'jsonlite'
## 
## The following object is masked from 'package:utils':
## 
##     View

view(lawn_data$polygons_count)

view(lawn_data$points_count)

count(polygons = lawn_data$polygons_count, points = lawn_data$points_count)

## $type
## [1] "FeatureCollection"
## 
## $features
##      type pt_count geometry.type
## 1 Feature        2       Polygon
## 2 Feature        0       Polygon
##                                                                                           geometry.coordinates
## 1 -112.07239, -112.07239, -112.02810, -112.02810, -112.07239, 46.58659, 46.61761, 46.61761, 46.58659, 46.58659
## 2 -112.02398, -112.02398, -111.96613, -111.96613, -112.02398, 46.57043, 46.61502, 46.61502, 46.57043, 46.57043