rticle fixed tables

Flavjack · Jun 19, 2024 · 0ed6afd · 0ed6afd
1 parent ddc5817
commit 0ed6afd
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/gdoc2qmd.R b/R/gdoc2qmd.R
@@ -24,8 +24,7 @@ gdoc2qmd <- function(file
                      , type = "asis"
                      ){
 
-  # file <- choose.files() ; format = "qmd"; export = NA
-  # type <- "listfull"
+  # file <- choose.files() ; format = "qmd"; export = NA; type <- "listfull"
 
   export <- if(is.na(export)) {
     file %>% gsub(".zip", "", .) %>% file.path()
@@ -121,6 +120,8 @@ gdoc2qmd <- function(file
     )) %>% 
     tidyr::fill(., group, .direction = "up") %>% 
     split(.$group) %>% 
+    purrr::map_dfr(~ slice(.data = ., c(n(),  1:(n()-1)))) %>% 
+    split(.$group) %>% 
     purrr::map_dfr(~ bind_rows(tibble(name = NA, value = NA), .x)) %>% 
     dplyr::mutate(.data = ., across(.data$value, ~ ifelse(is.na(.), "\\newpage", .)))