Your question in one sentence (e.g., How do I preview documents with Quarto?)

[nclsbarreto]

Description

Hello, I am relatively new to Quarto. I have some (very limited experience) in Rmarkdown but made the switch over for this project I am working on because self-improvement or something.....

Some background; the goal is to automate a report that happens every quarter for different stakeholders based on a survey. there are about 26 questions they want data on, so one slide per question, though they want the same thing on each slide (hence the desire to automate). Long story short a wrote a big long function that produces 3 horizontal stacked bar charts and 3 gt tables formatted the way I need them (honestly still learning about user-defined functions so any suggestions for that would also be good....). The function works when I run it in a normal R script, but when I try to render a revealjs in Quarto I get an error i dont understand....The data cant be shared, so I hope I can get by with just sharing the function and the error, but if necessary i can make up fake data.

I'm in windows 10, running quarto 1.3.450

thank you in advance.

# the function in question 
slide_fnc <- function(data, var) {
  var_name <- quo({{var}})
  var_char <- deparse(substitute(var))
  
  # table creation code
  tbl_grp <- data %>%
    count(end_year_label, {{var}}, .drop = FALSE) %>% 
    filter(!is.na({{var}})) %>%
    transmute(end_year_label = end_year_label, 
              !!var_name := {{var}}, 
              `%` = n/sum(n), 
              count = n) %>%
    group_split(end_year_label) %>%
    map(., ~.x %>% 
          gt() %>%
          fmt_percent(columns = `%`, 
                      decimals = 0) %>%
          cols_hide(data = ., end_year_label) %>%
          cols_align(
            columns = !!var_name,
            align = "left"
          ) %>%
          cols_label(
            !!var_name := "Answer"
          ) %>%
          tab_options(column_labels.background.color = "#0078B3", 
                      column_labels.font.weight = "bold", 
                      row_group.font.size = .1, 
                      table.font.size = 10) 
    ) %>%
    map(., ~grand_summary_rows(data = ., 
                               columns = c(count),
                               fns = list(label = md("Total"), id = "totals") ~ sum(.)) 
    ) %>% 
    gt_group(.list = .)
  
  # save tables as individual pngs 
  tbl_grp2 <- list()
  for (i in seq_along(tbl_grp)) {
    # Create a temporary file
    tmp <- tempfile(fileext = '.png')
    
    # Pull the first group from tbl_grp
    grp <- grp_pull(tbl_grp, i)
    
    # Save the plot to the temporary file
    gtsave(grp, tmp)
    
    # Read the PNG image from the temporary file and store it in tbl_grp2
    tbl_grp2[[i]] <- png::readPNG(tmp, native = TRUE)
    
    # delete temporary file
    file.remove(tmp)
  }
  
  #' @note - run this if getting Error in s$close() : attempt to apply non-function
  # f <- chromote::default_chromote_object() #get the f object
  # f$close()
  
  # bar creation code
  pal <- if_else(str_extract(var_char, "^pre|^post") == "pre", "Purples", "Greens")
  
  bar_grp <- data %>%
    count(end_year_label, {{var}}, .drop = FALSE) %>% 
    filter(!is.na({{var}})) %>%
    group_by(end_year_label) %>%
    transmute(colname = var_char,
              end_year_label = end_year_label,
              !!var_name := {{var}}, 
              `%` = round(n/sum(n), 2)*100, 
              value_labels = case_when(`%` > 4 ~ paste0(`%`, "%"), 
                                       TRUE ~ ""),
              count = n) %>%
    group_split() %>%
    map(., ~ggplot(.x, aes(y = `%`, 
                           x = colname, 
                           fill = {{var}})) +
          geom_col() +
          coord_flip() +
          geom_text(aes(label = value_labels), 
                    size = 6,  
                    colour = "white", 
                    fontface = "bold", 
                    position = position_stack(vjust = 0.5)) +
          facet_wrap(~end_year_label, 
                     ncol = 1, 
                     scales = "free_x") +
          scale_fill_brewer(palette = pal, 
                            direction = -1) +
          scale_y_continuous(expand = c(0, 0)) +
          scale_x_discrete(expand = c(0, 0)) +
          theme(axis.text.y = element_blank(), 
                axis.text.x = element_blank(), 
                axis.ticks.y = element_blank(),
                axis.ticks.x = element_blank(),
                axis.title.y = element_blank(), 
                axis.title.x = element_blank(), 
                strip.text.x = element_text(size = 18, color = "white"),
                strip.background.x = element_rect(fill = "#0078B3", linetype = 0, color = "#0078B3"), 
                legend.position = "bottom",
                legend.text = element_text(size = 12),
                legend.title = element_text(size = 14),
                plot.margin = unit(c(0, 0, 0, 0), "lines")
                , panel.spacing = unit(2, "lines")
                , panel.background = element_blank()
          ) +
          guides(fill = guide_legend(reverse = TRUE, 
                                     title = "")
          ))
  
  # organize slide, uses patchwork library
  bar_grp[[1]] + tbl_grp2[1] +
    bar_grp[[2]] + tbl_grp2[2] +
    bar_grp[[3]] + tbl_grp2[3] +
    plot_layout(design = '
AB
CD
EF
', widths = c(2, 1))
  
    }

slide_fnc(dat, pre_q1)

# the error I get
Quitting from lines 428-430 [unnamed-chunk-7] (fuzzy-bunny.rmarkdown)
Error in `ggplot_add()`:
! Can't add `o` to a <ggplot> object.
Backtrace:
 1. global slide_fnc(df, pre_q1)
 2. ggplot2:::`+.gg`(bar_grp[[1]], tbl_grp2[1])
 3. ggplot2:::add_ggplot(e1, e2, e2name)
 5. ggplot2:::ggplot_add.list(object, p, objectname)
 6. plot %+% o
 7. ggplot2:::add_ggplot(e1, e2, e2name)
 9. ggplot2:::ggplot_add.default(object, p, objectname) 

[mcanouil]

The issue is unrelated to Quarto as per the error message.
You have R code issue.

Could you also edit your post to have a meaningful title? Thank you.

For more help, could you share a small self-contained "working" (reproducible) example to work with, i.e., a complete Quarto document or a Git repository? The goal is to make it as easy as possible for us to recreate your problem so that we can fix it: please help us help you! Thanks.

---

You can share a self-contained "working" (reproducible) Quarto document using the following syntax, i.e., using more backticks than you have in your document (usually four ````).
See https://quarto.org/bug-reports.html#small-is-beautiful-aim-for-a-single-document-with-10-lines.

If you have multiple files (and if it is absolutely required to have multiple files), please share as a Git repository.

R	Python
````qmd --- title: "Reproducible Quarto Document" format: html engine: knitr --- This is a reproducible Quarto document. ```{r} x <- c(1, 2, 3, 4, 5) y <- c(1, 4, 9, 16, 25) plot(x, y) ```  The end. ````	````qmd --- title: "Reproducible Quarto Document" format: html engine: jupyter --- This is a reproducible Quarto document. ```{python} import matplotlib.pyplot as plt x = [1, 2, 3, 4, 5] y = [1, 4, 9, 16, 25] plt.plot(x, y) plt.show() ```  The end. ````

Additionally and if not already given, please share the output of quarto check within a code blocks (i.e., using three backticks ```txt), see https://quarto.org/bug-reports.html#check.

[cscheid]

# the error I get
Quitting from lines 428-430 [unnamed-chunk-7] (fuzzy-bunny.rmarkdown)
Error in `ggplot_add()`:
! Can't add `o` to a <ggplot> object.
Backtrace:
 1. global slide_fnc(df, pre_q1)
 2. ggplot2:::`+.gg`(bar_grp[[1]], tbl_grp2[1])
 3. ggplot2:::add_ggplot(e1, e2, e2name)
 5. ggplot2:::ggplot_add.list(object, p, objectname)
 6. plot %+% o
 7. ggplot2:::add_ggplot(e1, e2, e2name)
 9. ggplot2:::ggplot_add.default(object, p, objectname) 

Unfortunately, this isn't a Quarto error; this is a ggplot error. You'll need to ask for help in the ggplot forums.

[nclsbarreto]

how do I delete a post....turns out this was because i had not included patchwork as one of the loaded packages....which fixed it...

[cscheid]

No need to delete - we'll just mark it as resolved.