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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#' Fetch Twitter OAuth token
#'
#' @description
#' `r lifecycle::badge("deprecated")`
#' Please use [auth_get()] instead.
#'
#' @family tokens
#' @export
get_token <- function() {
lifecycle::deprecate_warn("1.0.0", "get_token()", "auth_get()")
auth_get()
}
#' @export
#' @rdname get_token
get_tokens <- function() {
lifecycle::deprecate_warn("1.0.0", "get_tokens()", "auth_get()")
auth_get()
}
#' Create custom Twitter OAuth token
#'
#' @description
#' `r lifecycle::badge("deprecated")`
#' By default, `create_token()` does three things: it creates an authentication
#' "token", sets it as the default token for the current session, and save it
#' to disk to make it the default for future sessions.
#'
#' These three components have now been split up into three separate pieces:
#' use [rtweet_user()]/[rtweet_app()]/[rtweet_bot()] to create the token,
#' [auth_as()] to make it the default for this session, and [auth_save()] to
#' use it in future sessions. See `vignette("auth")` for full details.
#'
#' @param app Name of user created Twitter application
#' @param consumer_key,consumer_secret App API key and secret.
#' @param access_token,access_secret Access token and secret.
#' @param set_renv Should the token be cached?
#' @return Twitter OAuth token(s) (Token1.0).
#' @keywords internal
#' @family tokens
#' @export
create_token <- function(app = "mytwitterapp",
consumer_key = NULL,
consumer_secret = NULL,
access_token = NULL,
access_secret = NULL,
set_renv = TRUE) {
lifecycle::deprecate_warn(
when = "1.0.0",
what = "create_token()",
details = "See vignette('auth') for details"
)
if (!is.null(access_token) && !is.null(access_secret)) {
token <- rtweet_bot(consumer_key, consumer_secret, access_token, access_secret)
} else {
token <- rtweet_user(consumer_key, consumer_secret)
}
if (set_renv) {
auth_save(token, "create_token")
}
auth_as(token)
invisible(token)
}
|
