#42 remove tolower on ws

eblondel · Dec 20, 2018 · d340224 · d340224
1 parent e89546f
commit d340224
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/GSServiceManager.R b/R/GSServiceManager.R
@@ -104,7 +104,6 @@ GSServiceManager <- R6Class("GSServiceManager",
       restPath <- NULL
       service <- tolower(service)
       if(!is.null(ws)){
-        ws <- tolower(ws)
         self$INFO(sprintf("Fetching %s service settings in workspace '%s'", service, ws))
         restPath <- sprintf("/services/%s/workspaces/%s/settings.xml", service, ws)
       }else{
@@ -142,7 +141,6 @@ GSServiceManager <- R6Class("GSServiceManager",
       restPath <- NULL
       service <- tolower(service)
       if(!is.null(ws)){
-        ws <- tolower(ws)
         self$INFO(sprintf("Fetching %s service settings in workspace '%s'", service, ws))
         restPath <- sprintf("/services/%s/workspaces/%s/settings.xml", service, ws)
       }else{