# NOT RUN {
library(sf)
points = cbind(c(4488182.26267016, 4488852.91748256),
c(2667398.93118627, 2667398.93118627))
getISO3(pp = points, ask = TRUE, crs_pp = 3035)
points <- as.data.frame(points)
colnames(points) <- c("x","y")
points <- st_as_sf(points, coords = c("x","y"))
st_crs(points) <- 3035
getISO3(pp = points, crs_pp = 3035)
# }
Run the code above in your browser using DataLab