Updated documentation

NAMESPACE

@@ -16,14 +16,11 @@ export(clipLevel2BPAVDProfile)
 export(clipLevel2BPAVDProfileGeometry)
 export(clipLevel2BVPM)
 export(clipLevel2BVPMGeometry)
-export(close)
 export(gedi.fullwaveform)
 export(gedi.level1b)
 export(gedi.level2a)
 export(gedi.level2b)
 export(gediDownload)
-export(gediWFMetrics)
-export(gediWFSimulator)
 export(gedifinder)
 export(getLevel1BGeo)
 export(getLevel1BWF)
@@ -33,7 +30,6 @@ export(getLevel2BPAVDProfile)
 export(getLevel2BVPM)
 export(gridStatsLevel2AM)
 export(gridStatsLevel2BVPM)
-export(plot)
 export(plotPAIProfile)
 export(plotPAVDProfile)
 export(plotWFMetrics)
@@ -46,6 +42,8 @@ exportClasses(gedi.fullwaveform)
 exportClasses(gedi.level1b)
 exportClasses(gedi.level2a)
 exportClasses(gedi.level2b)
+exportMethods(close)
+exportMethods(plot)
 import(curl)
 import(data.table)
 import(fs)
@@ -77,4 +75,3 @@ importFrom(hdf5r,H5File)
 importFrom(stats,na.omit)
 importFrom(stats,quantile)
 importFrom(stats,setNames)
-useDynLib(rGEDI)

R/gridStatsLevel2AM.R

@@ -45,7 +45,11 @@
 #' }
 #'
 #' #' Computing a serie of GEDI metrics
-#' ZTstats <- gridStatsLevel2AM(level2AM = level2AM, func = mySetOfMetrics(elev_highestreturn), res = 0.005)
+#' ZTstats <- gridStatsLevel2AM(
+#'   level2AM = level2AM,
+#'   func = mySetOfMetrics(elev_highestreturn),
+#'   res = 0.005
+#' )
 #' head(ZTstats)
 #'
 #' #' Computing the maximum of RH100 only
@@ -61,6 +65,7 @@
 #' @export
 gridStatsLevel2AM <- function(level2AM, func, res = 0.5) {
   requireNamespace("data.table")
+  cells <- NA
   # this code has been adapted from the grid_metrics function in lidR package (Roussel et al. 2019)
   # https://github.com/Jean-Romain/lidR/blob/master/R/grid_metrics.r
 

R/gridStatsLevel2BVPM.R

@@ -45,7 +45,11 @@
 #' }
 #'
 #' #' Computing a serie of statistics of GEDI derived canopy cover
-#' cover_stats <- gridStatsLevel2BVPM(level2BVPM = level2BVPM, func = mySetOfMetrics(cover), res = 0.005)
+#' cover_stats <- gridStatsLevel2BVPM(
+#'   level2BVPM = level2BVPM,
+#'   func = mySetOfMetrics(cover),
+#'   res = 0.005
+#' )
 #' head(cover_stats)
 #'
 #' #' Computing the max of the Total Plant Area Index only
@@ -60,6 +64,7 @@
 #' @export
 gridStatsLevel2BVPM <- function(level2BVPM, func, res) {
   requireNamespace("data.table")
+  cells <- NA
   # this code has been adapted from the grid_metrics function in lidR package (Roussel et al. 2019)
   # https://github.com/Jean-Romain/lidR/blob/master/R/grid_metrics.r