* Read level3 as internal class

carlos-alberto-silva · Sep 14, 2023 · d082006 · d082006
1 parent ed39c6e
commit d082006
Show file tree

Hide file tree

Showing 9 changed files with 204 additions and 161 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -21,6 +21,7 @@ export(gedi.fullwaveform)
 export(gedi.level1b)
 export(gedi.level2a)
 export(gedi.level2b)
+export(gedi.level3)
 export(gediDownload)
 export(gediWFMetrics)
 export(gediWFSimulator)
@@ -42,10 +43,12 @@ export(polyStatsLevel2BVPM)
 export(readLevel1B)
 export(readLevel2A)
 export(readLevel2B)
+export(readLevel3)
 exportClasses(gedi.fullwaveform)
 exportClasses(gedi.level1b)
 exportClasses(gedi.level2a)
 exportClasses(gedi.level2b)
+exportClasses(gedi.level3)
 import(curl)
 import(data.table)
 import(fs)

diff --git a/R/class.gedi.R b/R/class.gedi.R
@@ -63,6 +63,22 @@ gedi.fullwaveform <- setClass(
 )
 
 
+#' Class for GEDI level3
+#'
+#' @slot raster Object of class [`SpatRaster`][terra::SpatRaster] from `terra` package containing the
+#' GEDI level3 products: rasterized metrics
+#'
+#' @seealso
+#' \url{https://daac.ornl.gov/GEDI/guides/GEDI_L3_LandSurface_Metrics_V2.html}
+#'
+#' @import methods
+#' @export
+gedi.level3 <- setClass(
+  Class = "gedi.level3",
+  slots = list(raster = "SpatRaster")
+)
+
+
 #' Plot GEDI* object
 #'
 #' @param x An object of class [`gedi.fullwaveform-class`] (output of [getLevel1BWF()] function)

diff --git a/man/gediWFSimulator.Rd b/man/gediWFSimulator.Rd
diff --git a/man/gedifinder.Rd b/man/gedifinder.Rd
diff --git a/man/gridStatsLevel2AM.Rd b/man/gridStatsLevel2AM.Rd
diff --git a/man/gridStatsLevel2BVPM.Rd b/man/gridStatsLevel2BVPM.Rd
diff --git a/man/plot.Rd b/man/plot.Rd