#' Estimate Longitude and Latitude RasterLayer object
#'@author Cesar Aybar <aybar1994@gmail.com>
#'@param x RasterLayer object
#'@examples
#'library(Dorado)
#'data("Dorado")
#'XY_R(Dorado$TRMM)
#'@importFrom dplyr %>%
#'@importFrom raster rasterToPoints raster
#'@importFrom sp coordinates gridded
#'@import sp
#'@import raster
#'@importFrom utils modifyList
#'@export
XY_R <- function(x) {
long <- rasterToPoints(x)[, c(1, 2, 1)] %>% data.frame
coordinates(long) <- ~x + y
gridded(long) = T
long <- raster(long)
lat <- rasterToPoints(x)[, c(1, 2, 2)] %>% data.frame
coordinates(lat) <- ~x + y
gridded(lat) = T
lat <- raster(lat)
return(list(lat = lat, long = long))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.