'.grid.skeleton' <- function()
{
g1 <- list(columns=NA_integer_,rows=NA_integer_,resx=NA_real_,resy=NA_real_
,minx=NA_real_,maxx=NA_real_,miny=NA_real_,maxy=NA_real_
,seqx=numeric(0),seqy=numeric(0)
,crs="",retina=NA)
# class(g1$crs) <- c("character","ursaProjection")
class(g1) <- "ursaGrid"
g1
}
'.is.grid' <- function(obj) inherits(obj,"ursaGrid")
'print.ursaGrid' <- function(x,...) {
class(x) <- paste0(".",class(x))
if (!length(x$seqx))
x$seqx <- NULL
if (!length(x$seqy))
x$seqy <- NULL
if (is.na(x$retina))
x$retina <- NULL
str(x,formatNum=function(x) format(x,scientific=FALSE),...)
}
'str.ursaGrid' <- function(object,...) {
# args <- list(...)
# print(str(args))
# q()
class(object) <- paste0(".",class(object))
if (FALSE) {
y <- list('colunms rows'=c(object$columns,object$rows)
,'resx resy'=c(object$resx,object$resy)
,'minx miny maxx maxy'=c(object$minx,object$miny,object$maxx,object$maxy)
,'crs'=c(object$crs))
class(y) <- class(object)
return(y)
}
if (!length(object$seqx))
object$seqx <- NULL
if (!length(object$seqy))
object$seqy <- NULL
if ((!is.null(object$retina))&&(is.na(object$retina)))
object$retina <- NULL
str(object,...)#,formatNum=function(x) format(x,scientific=FALSE),...)
# do.call("str",lx,...)#,formatNum=function(x) format(x,scientific=FALSE),...)
}
'dim.ursaGrid' <- function(x) structure(c(x$rows,x$columns),names=c("lines","samples"))
'.grid.equal' <- function(g1,g2) {
(g1$columns==g2$columns)&&
(g1$rows==g2$rows)&&
(g1$minx==g2$minx)&&
(g1$maxx==g2$maxx)&&
(g1$miny==g2$miny)&&
(g1$maxy==g2$maxy)&&
1L
}
'as.data.frame.ursaGrid' <- function(x,row.names=NULL,optional=FALSE,...) {
expand.grid(x=seq(x,"x"),y=seq(x,"y"),KEEP.OUT.ATTRS=FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.