зеркало из https://github.com/Azure/AzureGraph.git
64 строки
1.0 KiB
R
64 строки
1.0 KiB
R
#' Informational functions
|
|
#'
|
|
#' These functions return whether the object is of the corresponding class.
|
|
#'
|
|
#' @param object An R object.
|
|
#'
|
|
#' @return
|
|
#' A boolean.
|
|
#' @rdname info
|
|
#' @export
|
|
is_app <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_app")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_service_principal <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_service_principal")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_user <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_user")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_group <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_group")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_directory_role <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_directory_role")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_aad_object <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "az_object")
|
|
}
|
|
|
|
|
|
#' @rdname info
|
|
#' @export
|
|
is_msgraph_object <- function(object)
|
|
{
|
|
R6::is.R6(object) && inherits(object, "ms_object")
|
|
}
|
|
|