changes fo character memer loading

SantanderMetGroup · May 21, 2020 · 9b210eb · 9b210eb
1 parent 2f23b51
commit 9b210eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/getMemberDomain.R b/R/getMemberDomain.R
@@ -32,7 +32,7 @@ getMemberDomain <- function(grid, members, continuous = FALSE) {
                   names(memberRangeList) <- paste0("Member_", members + 1)
                   as.integer(javaString2rChar(gcs$getEnsembleAxis()$getNames()$toString()))
             }else{
-                  names(memberRangeList) <- javaString2rChar(gcs$getEnsembleAxis()$getNames()$toString())
+                  names(memberRangeList) <- javaString2rChar(gcs$getEnsembleAxis()$getNames()$toString())[members + 1]            
             }
       } else {
             if (!all(diff(members) == 1)) stop("Non-continuous member selections are not allowed", call. = FALSE)