if (FALSE) {
dd <- data.frame(x = c(-89.198,-114.125,-122.044),
y = c(45.502,47.877,43.730))
comids <- lc_get_comid(dd, xcoord='x',
ycoord='y', crsys=4269)
dd <- data.frame(x = c(-89.198,-114.125,-122.044),
y = c(45.502,47.877,43.730)) |>
sf::st_as_sf(coords = c('x', 'y'), crs = 4326)
comids <- lc_get_comid(dd)
}
Run the code above in your browser using DataLab