Nothing
#' User and group verification
#'
#' @description `verify_user()` determines whether or not the given user or
#' group is registered with Pushover, returning information about that user.
#'
#' @param user user/group key to verify
#' @param app application token (see [`set_pushover_app`])
#' @param device (optional) device to verify If supplied the device must be
#' registered to the given user's account.
#'
#' @return `verify_user()` and `verify_group()` return a list containing
#' the following fields:
#' \itemize{
#' \item `status`: request status (`1` = success)
#' \item `devices`: a list of the user's devices
#' \item `request`: unique request ID
#' \item `errors`: a list of error messages (only for unsuccessful requests)
#' \item `raw`: the raw [httr::response] object
#' }
#' @export
#'
#' @examples
#' \dontrun{
#' verify_user(user = "uQiRzpo4DXghDmr9QzzfQu27cmVRsG")
#' }
verify_user <- function(user, app = get_pushover_app(), device = NULL) {
params <- list(
"token" = assert_valid_app(app),
"user" = assert_valid_user(user)
)
if (!is.null(device)) {
params$device <- assert_valid_device(device)
}
pushover_api(
verb = "POST",
url = "https://api.pushover.net/1/users/validate.json",
body = params
)
}
#' @rdname verify_user
#' @description `verify_group()` is an alias for `verify_user()`
#' @export
verify_group <- verify_user
#' @rdname verify_user
#' @description `is.registered_user()` indicates whether or not a given user ID
#' is registered with Pushover
#' @return `is.registered_user()` and `is.registered_group()` return a logical
#' value indicating whether or not the given user or group is registered.
#' @export
is.registered_user <- function(user, app = get_pushover_app(), device = NULL) {
rval <- verify_user(user = user, app = app, device = device)
rval$status == 1
}
#' @rdname verify_user
#' @export
is.registered_group <- is.registered_user
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.