otbtex_edge: Calculates edges for a given kernel size.

In gisma/uavRst: Unmanned Aerial Vehicle Remote Sensing Tools

Calculates edges for a given kernel size.

Description

Calculates edges for a given kernel size. return list of geotiffs containing thelocal statistics for each channel

Calculates edges for a given kernel size. return list of geotiffs containing thelocal statistics for each channel

Usage

otbtex_edge(
  input = NULL,
  out = "edge",
  ram = "8192",
  filter = "gradient",
  touzi_xradius = 1,
  touzi_yradius = 1,
  channel = NULL,
  retRaster = FALSE,
  outDir = NULL,
  verbose = FALSE,
  otbLinks = NULL,
  gdalLinks = NULL
)

otbtex_edge(
  input = NULL,
  out = "edge",
  ram = "8192",
  filter = "gradient",
  touzi_xradius = 1,
  touzi_yradius = 1,
  channel = NULL,
  retRaster = FALSE,
  outDir = NULL,
  verbose = FALSE,
  otbLinks = NULL,
  gdalLinks = NULL
)

Arguments

input	of GeoTiff containing 1 ore more gray value band(s)
out	the output mono band image containing the edge features
ram	reserved memory in MB
filter	the choice of edge detection method (gradient/sobel/touzi)
touzi_xradius	x radius of the Touzi processing neighborhood (if filter==touzi) (default value is 1 pixel)
touzi_yradius	y radius of the Touzi processing neighborhood (if filter==touzi) (default value is 1 pixel)
channel	sequence of bands to be processed
retRaster	boolean if TRUE a raster stack is returned
outDir	output Directory
verbose	switch for system messages default is FALSE
otbLinks	list of OTB tools cli pathes
gdalLinks	list of GDAL cli pathes

Value

raster* object

raster* object

Note

the otb is used for filtering. please provide a GeoTiff file

the otb is used for filtering. please provide a GeoTiff file

Author(s)

Chris Reudenbach

Examples

## Not run: 
# required packages
# load libraries
require(uavRst)
require(link2GI)
require(listviewer)

setwd(tempdir())

# check if OTB exists
otbLinks <- link2GI::linkOTB()

if (otbLinks$exist) {
data("rgb")
raster::plotRGB(rgb)
fn<-file.path(tempdir(),"rgb.tif")
raster::writeRaster(rgb, 
                    filename=fn,
                    format="GTiff", 
                    overwrite=TRUE)
# get help
cmd<-link2GI::parseOTBFunction(algo = "EdgeExtraction",gili=otbLinks)
listviewer::jsonedit(cmd$help)

# calculate Sobel edge detection
  r<-otbtex_edge(input=fn,
                 filter="sobel",
                 retRaster = TRUE,
                 otbLinks = otbLinks)

# visualize all layers
  raster::plot(r[[1]])
}

## End(Not run)
## Not run: 
# required packages
# load libraries
require(link2GI)
require(listviewer)

setwd(tempdir())

# check if OTB exists
otbLinks <- link2GI::linkOTB()

if (otbLinks$exist) {
data("rgb")
raster::plotRGB(rgb)
fn<-file.path(tempdir(),"rgb.tif")
raster::writeRaster(rgb, 
                    filename=fn,
                    format="GTiff", 
                    overwrite=TRUE)
# get help
cmd<-link2GI::parseOTBFunction(algo = "EdgeExtraction",gili=otbLinks)
listviewer::jsonedit(cmd$help)

# calculate Sobel edge detection
  r<-otbtex_edge(input=fn,
                 filter="sobel",
                 retRaster = TRUE,
                 otbLinks = otbLinks)

# visualize all layers
  raster::plot(r[[1]])
}

## End(Not run)

gisma/uavRst documentation built on June 25, 2024, 3:07 a.m.