need fix table

Flavjack · Jun 17, 2024 · 03e7070 · 03e7070
1 parent 06f02b5
commit 03e7070
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/gdoc2qmd.R b/R/gdoc2qmd.R
@@ -41,6 +41,7 @@ gdoc2qmd <- function(file
     readLines() %>% 
     tibble::enframe() %>%
     dplyr::filter(!grepl("^#+ $", .data$value)) %>%  
+    dplyr::filter(!grepl("^#$", .data$value)) %>%  
     dplyr::mutate(value = gsub("```Unknown element type at this position: UNSUPPORTED```"
                                , "\n\n", .data$value)) %>% 
     {
@@ -82,9 +83,7 @@ gdoc2qmd <- function(file
 
   fig <- txt %>% 
     dplyr::filter(grepl("#fig", .data$value)) %>% 
-    tibble::as_tibble() %>% 
     dplyr::group_split(.data$value) %>% 
-    rev() %>% 
     purrr::map_dfr(~ add_row(.x, .before = grepl("#fig", .x))) %>% 
     {
       if(length(.) != 0) {