# set.seed(2)
# dd <- data.frame(lon = runif(100, min = 110, max = 117),
# lat = runif(100, min = 31, max = 37),
# value = runif(100, min = -10, max = 10))
# head(dd)
#
# # example 1
# grd <- points2grid(dd, extent = c(110, 117, 31, 37), gridsize = 0.5)
# head(grd)
#
# # example 2
# hmap <- cnmap::getMap(code = "410000", return = "sf") |> sf::st_make_valid()
# grd <- points2grid(dd, extent = hmap, gridsize = 0.5)
# head(grd)
#
# # example 3
# hmap <- cnmap::getMap(code = "410000", return = "sv")
# grd <- points2grid(dd, extent = hmap, gridsize = 0.5)
# head(grd)
Run the code above in your browser using DataLab