Error in opts_current_table() when rendering

[Andrzej-Andrzej]

Description

Hi,
I have got an error when rendering presentation:

Error in `opts_current_table()`:
! if a label (ftable_to_flextable) is defined, chunk option `tbl-cap` should also be defined.

How do I rectify this please, I have tried to define tbl-cap but no success anyway. Reprex below included:

---
title: "Flex"
format: revealjs
editor: visual
---

My Code

Reprex code below:

---
{r}

#| label: my_chunk_1 - defining M.

library(flextable)
library(officer)
library(tidyverse)

M <- as.table(rbind(c(762, 327, 468), c(484, 239, 477)))
dimnames(M) <- list(
  gender = c("F", "M"),
  party = c("Democrat", "Independent", "Republican"))


M

M <- as.data.frame(M) 

M

M <- M |> uncount(Freq)

---
---
{r}

#| label: my_chunk_2 - defining f.

f <- ftable(M,
            row.vars = "gender",
            col.vars = c("party"))


ftable_to_flextable <- function( x ){

  row.vars = attr( x, "row.vars" )
  col.vars = attr( x, "col.vars" )
  rows <- rev( expand.grid( rev(row.vars), stringsAsFactors = FALSE ) )
  cols <- rev(expand.grid( rev(col.vars), stringsAsFactors = FALSE ))

  xmat <- as.matrix(x)
  cols$col_keys = dimnames(xmat)[[2]]
  xdata <- cbind(
    data.frame(rows, stringsAsFactors = FALSE),
    data.frame(xmat, stringsAsFactors = FALSE)
  )
  names(xdata) <- c(names(row.vars), cols$col_keys)

  ft <- flextable(xdata)
  ft <- set_header_df(ft, cols)
  ft <- theme_booktabs(ft)
  ft <- merge_v(ft, j = names(row.vars))
  ft
}

f
---
---
{r}
#| label: ftable_to_flextable

final <- ftable(M) %>% ftable_to_flextable()

final

---

When I do not set name/label to chunk 3 (ftable_to_flextable) it works properly.
Is it possible by the way to turn on somehow code line numbering in visual editor ?

[mcanouil]

if a label (ftable_to_flextable) is defined, chunk option tbl-cap should also be defined.

As clearly stated, you have to define tbl-cap code cell option if a label (ftable_to_flextable) is defined.

---

Please format your code/post properly for it be usable.

You can share a Quarto document using the following syntax, i.e., using more backticks than you have in your document (usually four ````).

````qmd
---
title: "Reproducible Quarto Document"
format: html
---

This is a reproducible Quarto document using `format: html`.
It is written in Markdown and contains embedded R code.
When you run the code, it will produce a plot.

```{r}
plot(cars)
```

The end.
````

[Andrzej-Andrzej]

---
title: "Flex"
format: revealjs
editor: visual
---

My Code

Reprex code below:

---
{r}

#| label: my_chunk_1 - defining M.

library(flextable)
library(officer)
library(tidyverse)

M <- as.table(rbind(c(762, 327, 468), c(484, 239, 477)))
dimnames(M) <- list(
  gender = c("F", "M"),
  party = c("Democrat", "Independent", "Republican"))


M

M <- as.data.frame(M) 

M

M <- M |> uncount(Freq)

---
---
{r}

#| label: my_chunk_2 - defining f.

f <- ftable(M,
            row.vars = "gender",
            col.vars = c("party"))


ftable_to_flextable <- function( x ){

  row.vars = attr( x, "row.vars" )
  col.vars = attr( x, "col.vars" )
  rows <- rev( expand.grid( rev(row.vars), stringsAsFactors = FALSE ) )
  cols <- rev(expand.grid( rev(col.vars), stringsAsFactors = FALSE ))

  xmat <- as.matrix(x)
  cols$col_keys = dimnames(xmat)[[2]]
  xdata <- cbind(
    data.frame(rows, stringsAsFactors = FALSE),
    data.frame(xmat, stringsAsFactors = FALSE)
  )
  names(xdata) <- c(names(row.vars), cols$col_keys)

  ft <- flextable(xdata)
  ft <- set_header_df(ft, cols)
  ft <- theme_booktabs(ft)
  ft <- merge_v(ft, j = names(row.vars))
  ft
}

f
---
---
{r}
#| label: ftable_to_flextable

final <- ftable(M) %>% ftable_to_flextable()

final

---

The End

I have reformatted the code as requested.

[mcanouil]

It's not a valid Quarto document, please read carefully and follow my example.

Note that, you still have to do what the message tells you to do, as I wrote in my reply.
Also, you can edit your messages.

It's going hard to help you if you don't read the answer and don't follow the instructions.

[Andrzej-Andrzej]

I can assure you that I read the answers and try to follow the instructions. I am not that advanced as you, so if you see my mistakes correct it if you can so I will learn something today.

[mcanouil]

There is nothing "advanced" there.

1. You replaced ``` by --- leading to unusable code.

See the code in #5731 (comment)
When we asked for Quarto document code, we ask literally for Quarto document code, not something modified.
If you are not convinced, copy/paste the code you provided.

---
{r}
#| label: ftable_to_flextable

final <- ftable(M) %>% ftable_to_flextable()

final

---

2. The answer is in the error message

! if a label (ftable_to_flextable) is defined, chunk option `tbl-cap` should also be defined.

Add #| tbl-cap: whatever caption as stated.

```{r}
#| label: ftable_to_flextable
#| tbl-cap: whatever caption

final <- ftable(M) %>% ftable_to_flextable()

final
```