# NOT RUN {
# pts <- lawn_random(n = 100, bbox = c(0, 30, 20, 50))
pts <- lawn_point_grid(c(0, 30, 20, 50), 100, 'miles')
pts$features$properties <-
data.frame(temperature = round(rnorm(NROW(pts$features), mean = 5)),
stringsAsFactors = FALSE)
breaks <- c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
lawn_isolines(points = pts, breaks, z = 'temperature')
lawn_isolines(pts, breaks, 'temperature') %>% view
# }
Run the code above in your browser using DataLab