Fixes for rebasing

Author: dfalbel

R/ragnar-chat.R

@@ -29,12 +29,15 @@ chat_ragnar <- function(
   },
   retrieve = function(self, query) {
     retrieved_ids <- self$turns_list_chunks() |>
-      sapply(\(x) x$id)
+      sapply(\(x) x$id) |> 
+      unlist()
 
     self$ragnar_store |>
-      dplyr::tbl() |>
-      dplyr::filter(!.data$id %in% retrieved_ids) |>
-      ragnar::ragnar_retrieve(query, top_k = 10)
+      ragnar::ragnar_retrieve(
+        query, 
+        top_k = 10,
+        filter = !.data$id %in% retrieved_ids
+      )
   }
 ) {
   chat <- chat()

tests/testthat/helper-doc.R

@@ -25,7 +25,7 @@ test_store <- function() {
   )
 
   doc <- test_doc()
-  chunks <- ragnar_read(doc, frame_by_tags = c("h1", "h2", "h3"))
+  chunks <- read_as_markdown(doc) |> markdown_chunk()
   ragnar_store_insert(store, chunks)
   ragnar_store_build_index(store)
 }