#' @name gridcol
#' @export
gc_tibble <- function(x, ...) {
UseMethod("gc_tibble")
}
#' @name gridcol
#' @export
gc_tibble.BasicRaster <- function(x, ...) {
dplyr::mutate(tabularaster::as_tibble(x), cellindex = gridcol(cellindex, x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.