is_directory_object

NAMESPACE

@@ -11,6 +11,7 @@ export(create_graph_login)
 export(delete_graph_login)
 export(get_graph_login)
 export(is_app)
+export(is_directory_object)
 export(is_group)
 export(is_service_principal)
 export(is_user)

R/is.R

@@ -36,3 +36,11 @@ is_group <- function(object)
 {
     R6::is.R6(object) && inherits(object, "az_group")
 }
+
+
+#' @rdname info
+#' @export
+is_directory_object <- function(object)
+{
+    R6::is.R6(object) && inherits(object, "az_object")
+}

man/info.Rd

@@ -5,6 +5,7 @@
 \alias{is_service_principal}
 \alias{is_user}
 \alias{is_group}
+\alias{is_directory_object}
 \title{Informational functions}
 \usage{
 is_app(object)
@@ -14,6 +15,8 @@ is_service_principal(object)
 is_user(object)
 
 is_group(object)
+
+is_directory_object(object)
 }
 \arguments{
 \item{object}{An R object.}