implement print methods

R/az_app.r

@@ -160,6 +160,15 @@ public=list(
     delete_service_principal=function(confirm=TRUE)
     {
         self$get_service_principal()$delete(confirm=confirm)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph registered app '", self$properties$displayName, "'>\n", sep="")
+        cat("  app id:", self$properties$appId, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  domain:", self$properties$publisherDomain, "\n")
+        invisible(self)
     }
 ),
 

R/az_group.R

@@ -70,6 +70,14 @@ public=list(
         op <- file.path("groups", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+    
+    print=function(...)
+    {
+        cat("<Graph group '", self$properties$displayName, "'>\n", sep="")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  description:", self$properties$description, "\n")
+        invisible(self)
     }
 ),
 

R/az_svc_principal.R

@@ -53,6 +53,15 @@ public=list(
         op <- file.path("servicePrincipals", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph service principal '", self$properties$displayName, "'>\n", sep="")
+        cat("  app id:", self$properties$appId, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        cat("  app tenant:", self$properties$appOwnerOrganizationId, "\n")
+        invisible(self)
     }
 ),
 

R/az_user.R

@@ -109,6 +109,15 @@ public=list(
         op <- file.path("users", self$properties$id)
         private$graph_op(op, http_verb="DELETE")
         invisible(NULL)
+    },
+
+    print=function(...)
+    {
+        cat("<Graph user account '", self$properties$displayName, "'>\n", sep="")
+        cat("  principal name:", self$properties$userPrincipalName, "\n")
+        cat("  email:", self$properties$mail, "\n")
+        cat("  directory id:", self$properties$id, "\n")
+        invisible(self)
     }
 ),