library(terra) nc <- 3 nr <- 4 half <- 0.5 V <- rast(ncol = nc, nrow = nr, xmin = half, xmax = nc + half, ymin = half, ymax = nr + half, vals = seq_len(nc*nr)) Cell <- V values(Cell) <- cells(Cell) cell <- as.matrix(Cell, wide = TRUE) Cell cell
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.