fix #197

MarkEdmondson1234 · Dec 1, 2020 · cb1e1b4 · cb1e1b4
1 parent 29872ad
commit cb1e1b4
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/service_creation.R b/R/service_creation.R
@@ -67,11 +67,13 @@ gar_service_create <- function(
 
   candidate <- sprintf("%s@%s.iam.gserviceaccount.com",
                        accountId, projectId)
-  
-  tryCatch(
+
+  o <- tryCatch(
     gar_service_get(candidate, projectId = projectId), 
     error = function(err){
-         need_one <- grepl(paste(candidate, "does not exist"), err$message)
+
+         # watch out if they update the error message
+         need_one <- grepl(paste("Not found"), err$message)
          if(need_one){
            myMessage("Creating new service account: ", candidate, level = 3)
            the_url <- sprintf(
@@ -96,6 +98,7 @@ gar_service_create <- function(
            stop(err$message)
          }
       })
+  o
 
 }