change of function name

Author: marus200

DESCRIPTION

@@ -15,7 +15,7 @@ License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1
 Imports: 
     httr,
     jsonlite,

NAMESPACE

@@ -2,7 +2,7 @@
 
 export(get_and_parse)
 export(wapor_collections)
-export(wapor_productMETA)
+export(wapor_metadata)
 export(wapor_products)
 export(wapor_queryRaster)
 export(wapor_signin)

R/collections.R

@@ -65,10 +65,10 @@ wapor_products <-function(collection){
 #' @param product A length one character vector specifying the product..
 #'
 #' @return A list object with the obhects \code{info}, \code{dimensions}, and \code{meta}.
-#' @export wapor_productMETA
+#' @export wapor_metadata
 #'
 #' @importFrom stringr str_remove_all
-wapor_productMETA <- function(collection, product){
+wapor_metadata <- function(collection, product){
 
   url = paste(dataurl, collection, "cubes", product, "measures", sep = "/")
   parsed = get_and_parse(url)
@@ -98,3 +98,4 @@ wapor_productMETA <- function(collection, product){
 
   list(info = info, dimensions = dimensions, meta = meta)
 }
+

R/queryRaster.R

@@ -88,7 +88,7 @@ wapor_queryRaster <- function(collection = NULL,
   tmp_vars = c("YEAR", "MONTH", "DEKAD")
 
   # get product meta data
-  metadata = wapor_productMETA(collection, product)
+  metadata = wapor_metadata(collection, product)
   dim_names = metadata$dimensions$code
   if(!any(dim_names %in% tmp_vars)){
     if(!any(is.null(begin), is.null(end))){
@@ -111,7 +111,7 @@ wapor_queryRaster <- function(collection = NULL,
   if(length(dim_names) > 0){
     if(!any(names(dimensions) %in% dim_names)){
       stop("There are non matching dimensions specified in the 'dimensions' option.
-         Check the dimension output of wapor_productMETA() and change your input.")
+         Check the dimension output of wapor_metadata()$dimensions and change your input.")
     }
   }
   measure = as.character(metadata$info$code)

README.md

@@ -75,6 +75,7 @@ WAPOR collections. For some other collection it is also possible to
 query and download raster datasets. However, for some of the collections
 errors will be returned if queried. Currently, you might run into errors
 for these collections: 
+
 - C2ATLAS 
 -  DLMF 
 -  NASA 
@@ -172,8 +173,8 @@ str(products[[1]]$meta)
     ##  $ spatialReferenceSystem: chr "EPSG:4326 - WGS84 - Geographic Coordinate System (lat/long)"
     ##  $ temporalResolution    : chr "from January 2009 to present"
     ##  $ temporalExtent        : chr "Annual"
-    ##  $ nearRealTime          : chr "New dekadal data layers are released approximately 5 days after the end of a dekad. A higher quality version of"| __truncated__
-    ##  $ methodology           : chr "The calculation of gross biomass water productivity (GBWP) is as follows: GBWP = TBP/ETIa Where TBP is annual T"| __truncated__
+    ##  $ nearRealTime          : chr "New dekadal data layers are released approximately 5 days after the end of a dekad."| __truncated__
+    ##  $ methodology           : chr "The calculation of gross biomass water productivity (GBWP) is as follows: GBWP ="| __truncated__
 
 
 With these information combined, we can start downloading some data.
@@ -208,4 +209,4 @@ wapor_queryRaster(collection = collection,
                  tiled = TRUE, 
                  compressed = TRUE, 
                  overviews = TRUE)
-```
+```