-
Notifications
You must be signed in to change notification settings - Fork 201
/
post-block.R
39 lines (33 loc) · 1.06 KB
/
post-block.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#' Blocking or unblocking twitter users
#'
#' `user_block(...)` blocks or unblocks a target twitter user.
#' `user_unblock(...)` is synonymous to `user_block(..., unblock=TRUE)`.
#' `r lifecycle::badge("deprecated")`
#'
#' @inheritParams get_timeline
#' @param unblock Logical indicating whether to unblock the intended
#' friend.
#' @aliases user_unblock
#' @seealso [`rtweet-deprecated`]
#' @export
#' @references
#' Block: <https://developer.twitter.com/en/docs/twitter-api/v1/accounts-and-users/mute-block-report-users/api-reference/post-blocks-create>
user_block <- function(user,
unblock = FALSE,
token = NULL) {
stopifnot(is.atomic(user) || is.null(user), is_logical(unblock))
if (!unblock) {
query <- "/1.1/blocks/create"
params <- list()
} else {
query <- "/1.1/blocks/destroy"
params <- list()
}
params[[user_type(user)]] <- user
TWIT_post(token, query, params)
}
#' @rdname user_block
#' @export
user_unblock <- function(user, token = NULL) {
user_block(user, unblock = TRUE, token = token)
}