Remote Sensing in R: extent viz

gistfile1.txt

ext <- extent(c(xmin=116.45902633667,xmax=116.477222442627,ymin=39.940881729126,ymax=39.9528980255127))

ext %>% 
sf::st_bbox() %>% 
    sf::st_as_sfc() %>% 
    sf::st_set_crs(4326) %>% 
    sf::st_transform(3857) %>% 
    sf::st_bbox() %>% 
    mapview::mapview()