test_that("find_near works", { st <- st_met2176_hourly p <- c(116.4, 39.9) s = find_near(p, st) expect_equal(nrow(s), 1) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.