Commit everything before merge

R/auth.R

@@ -173,9 +173,8 @@ ask_pass <- function(type) {
   val
 }
 
-#' Generate a Bearer token from a client
-#'
 #' @export
+#' @rdname rtweet_user
 rtweet_bearer <- function(client = NULL, scopes  = set_scopes()) {
 
   client <- client %||% client_get()
@@ -200,7 +199,7 @@ rtweet_bearer <- function(client = NULL, scopes  = set_scopes()) {
   token
 }
 
-#' @seealso [invalidate_bearer()]
+# @seealso [invalidate_bearer()]
 rtweet_invalidate <- function(api_key, api_secret, token = NULL) {
   if (missing(api_key)) {
     api_key <- ask_pass("API key")

R/bearer_token.R

@@ -26,7 +26,6 @@ bearer_token <- function(token = NULL) {
 #' @references <https://developer.twitter.com/en/docs/authentication/api-reference/invalidate_bearer_token>
 #' <https://developer.twitter.com/en/docs/authentication/api-reference/invalidate_access_token>
 #' @keywords internal
-#' @seealso [rtweet_invalidate()]
 #' @export
 invalidate_bearer <- function(api_key, api_secret, client = NULL, token = NULL) {
 # See also rtweet_invalidate in auth.R

R/collections.R

@@ -12,7 +12,7 @@ lookup_collections <- function(id, n = 200,
                                parse = TRUE,
                                token = NULL,
                                ...) {
-  lifecycle::deprecate_stop("1.0.0", "lookup_collections()")
+  lifecycle::deprecate_stop("1.0.0", function_call())
 }
 
 #' @export
@@ -24,5 +24,5 @@ get_collections <- function(user = NULL,
                             parse = TRUE,
                             token = NULL) {
 
-  lifecycle::deprecate_stop("1.0.0", "get_collections()")
+  lifecycle::deprecate_stop("1.0.0", function_call())
 }

R/http.R

@@ -27,6 +27,9 @@ TWIT_method <- function(method, token, api,
                         retryonratelimit = NULL,
                         verbose = TRUE,
                         ...) {
+  lifecycle::deprecate_stop("2.0.0", function_caller(),
+                            details = c("The removal of API v1.1 made this function obsolete.",
+                                        "See the new vignette about the new requirements and functions."))
   # need scipen to ensure large IDs are not displayed in scientific notation
   # need ut8-encoding for the comma separated IDs
   withr::local_options(scipen = 14, encoding = "UTF-8")

R/ts_plot.R

@@ -31,6 +31,7 @@
 #' @family ts_data
 #' @export
 ts_plot <- function(data, by = "days", trim = 0L, tz ="UTC", ...) {
+  lifecycle::deprecate_stop("2.0.0", function_call())
   data <- ts_data(data, by, trim, tz)
   check_installed("ggplot2")
 
@@ -79,6 +80,7 @@ ts_plot <- function(data, by = "days", trim = 0L, tz ="UTC", ...) {
 #'
 #' @export
 ts_data <- function(data, by = "days", trim = 0L, tz ="UTC") {
+  lifecycle::deprecate_stop("2.0.0", function_call())
   stopifnot(is.data.frame(data), is.atomic(by) && !is.null(by))
   if (has_name_(data, "created_at")) {
     dtvar <- "created_at"

R/utils.R

@@ -92,3 +92,12 @@ release_bullets <- function() {
     "Check spelling with: `spelling::spell_check_package()`",
     "Run manual tests.")
 }
+
+
+function_call <- function() {
+  paste0(as.character(sys.call(sys.parent(1)))[1L], "()")
+}
+
+function_caller <- function() {
+  paste0(as.character(sys.call(1))[1L], "()")
+}