Fix: melhora função gpt_ler

courtsbr · Aug 3, 2024 · bce713f · bce713f
1 parent c06d56d
commit bce713f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/gpt_ler.R b/R/gpt_ler.R
@@ -17,8 +17,10 @@ gpt_ler <- function (arquivos, colunas = NULL)
   purrr::map_dfr(arquivos, purrr::possibly(~{
 
     nome_arquivo <- basename(.x)
-
-    .x |>
+     .x |>
+     readLines() |> 
+      stringr::str_subset("```", negate = T) |> 
+      stringr::str_c(collapse = "\n") |> 
       jsonlite::fromJSON() |>
       purrr::map_if(rlang::is_empty, \(x) NA_character_) |>
       as.data.frame() |>