generate_query_template(): new way of commenting

Author: mckeea

R/utils.R

@@ -36,10 +36,9 @@ extract_param_meta_for_string <- function(meta) {
   }
 
   if (exists("oneOf", where = meta) && length(meta$oneOf) > 0) {
-    value <- meta$oneOf[[1]]$const
-
     possible_values <- sapply(meta$oneOf, function(x) x$const)
-    comment <- paste0("One of: ", paste(possible_values, collapse = ","))
+    value <- paste(possible_values, collapse = " , ")
+    comment <- paste0("One of")
   }
 
   data.frame(value = value, comment = comment)

vignettes/hdar.Rmd

@@ -262,14 +262,14 @@ query_template
   "itemsPerPage": 11,
   "startIndex": 0,
   "uid": "__### Value of string type with pattern: [\\w-]+",
-  "productType": "PPI",
-  "_comment_productType": "One of: PPI,QFLAG",
+  "productType": "PPI , QFLAG",
+  "_comment_productType": "One of",
   "platformSerialIdentifier": "S2A, S2B",
-  "_comment_platformSerialIdentifier": "One of: S2A, S2B",
+  "_comment_platformSerialIdentifier": "One of",
   "tileId": "__### Value of string type with pattern: [\\w-]+",
   "productVersion": "__### Value of string type with pattern: [\\w-]+",
   "resolution": "10",
-  "_comment_resolution": "One of: 10",
+  "_comment_resolution": "One of",
   "processingDate": "__### Value of string type with format: date-time",
   "start": "__### Value of string type with format: date-time",
   "end": "__### Value of string type with format: date-time",