Nothing
setMethod("cellFromRowCol", signature(object = "Speclib"),
definition = function(object, rownr, colnr)
{
if (object@spectra@fromRaster)
{
return(cellFromRowCol(object@spectra@spectra_ra, rownr, colnr))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromRowColCombine", signature(object = "Speclib"),
definition = function(object, rownr, colnr)
{
if (object@spectra@fromRaster)
{
return(cellFromRowColCombine(object@spectra@spectra_ra, rownr, colnr))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromRow", signature(object = "Speclib"),
definition = function(object, rownr)
{
if (object@spectra@fromRaster)
{
return(cellFromRow(object@spectra@spectra_ra, rownr))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromCol", signature(object = "Speclib"),
definition = function(object, colnr)
{
if (object@spectra@fromRaster)
{
return(cellFromCol(object@spectra@spectra_ra, colnr))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("colFromX", signature(object = "Speclib"),
definition = function(object, x)
{
if (object@spectra@fromRaster)
{
return(colFromX(object@spectra@spectra_ra, x))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("rowFromY", signature(object = "Speclib"),
definition = function(object, y)
{
if (object@spectra@fromRaster)
{
return(rowFromY(object@spectra@spectra_ra, y))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromXY", signature(object = "Speclib"),
definition = function(object, xy)
{
if (object@spectra@fromRaster)
{
return(cellFromXY(object@spectra@spectra_ra, xy))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromLine", signature(object = "Speclib"),
definition = function(object, lns)
{
if (object@spectra@fromRaster)
{
return(cellFromLine(object@spectra@spectra_ra, lns))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("cellFromPolygon", signature(object = "Speclib"),
definition = function(object, p, weights=FALSE)
{
if (object@spectra@fromRaster)
{
return(cellFromPolygon(object@spectra@spectra_ra, p, weights = weights))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("fourCellsFromXY", signature(object = "Speclib"),
definition = function(object, xy, duplicates=TRUE)
{
if (object@spectra@fromRaster)
{
return(fourCellsFromXY(object@spectra@spectra_ra, xy, duplicates = duplicates))
} else {
stop("Speclib does not contain spectra from *raster-object")
}
}
)
setMethod("readAll", signature(object = "Speclib"),
definition = function(object)
{
if (object@spectra@fromRaster)
{
spectra(object) <- readAll(object@spectra@spectra_ra)
}
return(object)
}
)
setMethod("setValues", signature(x = "RasterBrick",
values = "Speclib"),
definition = function(x, values, ...)
{
values <- .restore_missing_values(values)
return(writeValues(x, values, ...))
}
)
setMethod("setValues", signature(x = "RasterStack",
values = "Speclib"),
definition = function(x, values, ...)
{
values <- .restore_missing_values(values)
return(writeValues(x, values, ...))
}
)
setMethod("writeValues", signature(x = "RasterBrick",
v = "Speclib"),
definition = function(x, v, start)
{
v <- .restore_missing_values(v)
return(writeValues(x, v, start))
})
setMethod("crop", signature(x = "Speclib"),
definition = function(x, y, ...)
{
stopifnot(x@spectra@fromRaster)
x@spectra@spectra_ra <- crop(x@spectra@spectra_ra, y, ...)
usagehistory(x) <- "Image cropped to extent"
return(x)
})
# setMethod("getValuesBlock", signature(x = "Speclib"),
# definition = function(x, ...)
# {
# if (!x@spectra@fromRaster)
# stop("Function 'getValuesBlock' only useful if spectral data is stored as a raster* object")
# v <- getValuesBlock(x@spectra@spectra_ra, ...)
# v <- .get.finite.spectra(v)
# return(v)
# })
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.