Pass token to lookup_users on post_message(#583)

ropensci · May 27, 2021 · 847f365 · 847f365
1 parent bd470c4
commit 847f365
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/post-message.R b/R/post-message.R
@@ -8,7 +8,7 @@
 #' @references <https://developer.twitter.com/en/docs/twitter-api/v1/direct-messages/sending-and-receiving/api-reference/new-event>
 post_message <- function(text, user, media = NULL, token = NULL) {
   ## get user id
-  user_id <- lookup_users(user)
+  user_id <- lookup_users(user, token=token)
   user_id <- user_id$user_id[1]
   stopifnot(is.character(text))
   stopifnot(length(text) == 1)