manuscript

Author: Flavjack

R/gdoc2qmd.R

@@ -121,8 +121,11 @@ gdoc2qmd <- function(file
       dplyr::ungroup() %>% 
       dplyr::mutate(group = case_when(
         grepl("#tbl", .data$value) ~ .data$name
+        , grepl("Author|author", .data$value) ~ 0
       )) %>% 
-      tidyr::fill(.data$group, .direction = fill_table) %>% 
+      tidyr::fill(.data$group
+                  , .direction = "down"
+                  ) %>% 
       split(.$group) %>% 
       purrr::map_dfr(~ bind_rows(tibble(name = NA, value = NA), .x)) %>% 
       dplyr::mutate(across(.data$value, ~ ifelse(is.na(.), "\\newpage", .)))

inst/extdata/_extensions/scihub/design/labels.qmd

@@ -31,17 +31,16 @@ gs <- "url" %>%
 
 fb <- gs %>% 
   range_read(ss = .,sheet = "fb")
-```
-
-## Labels 
 
-```{r}
-#| eval: false
+#> Google fonts: https://fonts.google.com/
 
 font <- c("Merriweather Sans", "Permanent Marker", "Tillana")
-
 huito_fonts(font)
+```
 
+## Labels 
+
+```{r}
 label <- fb %>%
   label_layout(size = c(5.2, 10)
                , border_color = "forestgreen"