include reply + response

Author: christopherkenny

NEWS.md

@@ -27,6 +27,8 @@
   * `bs_send_message_batch()` sends a batch of messages to different conversations
 * Fixes an issue where actual numbers with a # sign would cause failures in posting (#45).
 * Avoids creating raw version of files for upload where possible (#16).
+* Always returns `embed` for `bs_get_posts()` (#40, #41).
+* Include all returned information in `bs_get_author_feed()`. Note that this requires adding a prefix to `reply` and `reason` information. (#43)
 
 # bskyr 0.3.0
 

R/feed_author_feed.R

@@ -57,14 +57,22 @@ bs_get_author_feed <- function(actor, cursor = NULL, limit = NULL,
 
   lapply(resp, function(f) {
     lapply(f$feed, function(x) {
-      if (is.null(x$reply)) {
-        proc_post(x$post)
-      } else {
-        dplyr::bind_cols(
-          proc_post(x$post),
-          widen(x$reply)
+      post <- proc_post(x$post)
+      if (!is.null(x$reply)) {
+        post <- dplyr::bind_cols(
+          post,
+          widen(x$reply) |>
+            dplyr::rename_with(function(x) paste0('reply_', x))
         )
       }
+      if (!is.null(x$reason)) {
+        post <- dplyr::bind_cols(
+          post,
+          widen(x$reason) |>
+            dplyr::rename_with(function(x) paste0('reason_', x))
+        )
+      }
+      post
     }) |>
       purrr::list_rbind() |>
       clean_names()