updated to v0.1.0

carlos-alberto-silva · Mar 23, 2020 · c217543 · c217543
1 parent d13e848
commit c217543
Show file tree

Hide file tree

Showing 21 changed files with 83 additions and 148 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: rGEDI
 Type: Package
 Title:NASA's Global Ecosystem Dynamics Investigation (GEDI) Data Visualization and Processing
-Version: 0.0.7
+Version: 0.1.0
 Authors@R: c(
     person("Carlos Alberto", "Silva", email = "carlos_engflorestal@outlook.com", role = c("aut", "cre", "cph")),
     person("Caio", "Hamamura", email = "caiohamamura@gmail.com", role = c("aut", "cph")),

diff --git a/NAMESPACE b/NAMESPACE
@@ -1,4 +1,4 @@
-# Generated by roxygen2: do not edit by hand
+# Generated by roxygen2: do not edit by hand
 
 export(clipLevel1B)
 export(clipLevel1BGeo)

diff --git a/R/gedifinder.R b/R/gedifinder.R
@@ -3,11 +3,11 @@
 #'@description This function finds the path to GEDI data within a boundary box coordinates provided
 #'
 #'@param product GEDI data level; Options: "GEDI01_B", "GEDI02_A" or "GEDI02_B"
-#'@param version Character. The version of the GEDI product files to be returned.
 #'@param ul_lat Numeric. Upper left (ul) corner coordinates, in lat (decimal degrees) for the bounding box of the area of interest.
 #'@param ul_lon Numeric. Upper left (ul) corner coordinates, in lon (decimal degrees) for the bounding box of the area of interest.
 #'@param lr_lat Numeric. Lower right (ul) corner coordinates, in lat (decimal degrees) for the bounding box of the area of interest.
 #'@param lr_lon Numeric. Lower right (ul) corner coordinates, in lon (decimal degrees) for the bounding box of the area of interest.
+#'@param version Character. The version of the GEDI product files to be returned. Default "001".
 #'
 #'@return Return a vector object pointing out the path saving the downloaded GEDI data within
 #'the boundary box coordinates provided
@@ -27,11 +27,11 @@
 #'lr_lon<- -96.0
 #'
 #'# Extracting the path to GEDI data for the specified boundary box coordinates
-#'gedi02b_list<-gedifinder(product="GEDI02_B",version="001",ul_lat, ul_lon, lr_lat, lr_lon)
+#'gedi02b_list<-gedifinder(product="GEDI02_B",ul_lat, ul_lon, lr_lat, lr_lon,version="001")
 #'}
 #'@import jsonlite curl
 #'@export
-gedifinder<-function(product,version="001", ul_lat, ul_lon, lr_lat, lr_lon){
+gedifinder<-function(product, ul_lat, ul_lon, lr_lat, lr_lon,version="001"){
   response = curl::curl(sprintf(
     "https://lpdaacsvc.cr.usgs.gov/services/gedifinder?%s=%s&%s=%s&%s=%f,%f,%f,%f&output=json",
     "version",version,

diff --git a/README.md b/README.md
@@ -37,9 +37,9 @@ ul_lon<- -13.76913
 lr_lon<- -13.67646
 
 # Get path to GEDI data
-gLevel1B<-gedifinder(product="GEDI01_B",version="001",ul_lat, ul_lon, lr_lat, lr_lon)
-gLevel2A<-gedifinder(product="GEDI02_A",version="001",ul_lat, ul_lon, lr_lat, lr_lon)
-gLevel2B<-gedifinder(product="GEDI02_B",version="001",ul_lat, ul_lon, lr_lat, lr_lon)
+gLevel1B<-gedifinder(product="GEDI01_B",ul_lat, ul_lon, lr_lat, lr_lon,version="001")
+gLevel2A<-gedifinder(product="GEDI02_A",ul_lat, ul_lon, lr_lat, lr_lon,version="001")
+gLevel2B<-gedifinder(product="GEDI02_B",ul_lat, ul_lon, lr_lat, lr_lon,version="001")
 ```
 ## Downloading GEDI data
 ```r

diff --git a/man/clipLevel1B.Rd b/man/clipLevel1B.Rd
diff --git a/man/clipLevel1BGeometry.Rd b/man/clipLevel1BGeometry.Rd
diff --git a/man/clipLevel2A.Rd b/man/clipLevel2A.Rd
diff --git a/man/clipLevel2AGeometry.Rd b/man/clipLevel2AGeometry.Rd
diff --git a/man/clipLevel2B.Rd b/man/clipLevel2B.Rd
diff --git a/man/clipLevel2BGeometry.Rd b/man/clipLevel2BGeometry.Rd
diff --git a/man/close.Rd b/man/close.Rd
diff --git a/man/gedi.fullwaveform-class.Rd b/man/gedi.fullwaveform-class.Rd
diff --git a/man/gediDownload.Rd b/man/gediDownload.Rd
diff --git a/man/gediWFMetrics.Rd b/man/gediWFMetrics.Rd
diff --git a/man/gediWFSimulator.Rd b/man/gediWFSimulator.Rd
diff --git a/man/gedifinder.Rd b/man/gedifinder.Rd
diff --git a/man/plot.Rd b/man/plot.Rd