#9 fix WCSGetCoverage

eblondel · Mar 4, 2022 · e65c067 · e65c067
1 parent 7a635bb
commit e65c067
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/WCSGetCoverage.R b/R/WCSGetCoverage.R
@@ -87,10 +87,10 @@ WCSGetCoverage <- R6Class("WCSGetCoverage",
               if(tolower(subset)=="time") value <- time
               if(tolower(subset)=="elevation") value <- elevation
               if(is.null(value)) value <- envelope$upperCorner[,i]
-              if(is(value, "character")){
-                subsetKvp <- sprintf("%s(\"%s\",\"%s\")",subset, value, value) 
-              }else{
+              if(is(value, "numeric")){
                 subsetKvp <- sprintf("%s(%s,%s)",subset, value, value) 
+              }else{
+                subsetKvp <- sprintf("%s(\"%s\",\"%s\")",subset, value, value) 
               }
             }
             URLencode(subsetKvp)