Is there a better way to 'animate' this?

[pgseye]

Description

I am wanting to use kableExtra to place a small 2 x 2 table in a left column of the page and then have one column of the table change colour. Currently I have done this by duplicating the entire slide with the small change in the column colour code in the second slide. This works, but I want to do this several times and I can see it will mean a lot of duplication. I had a go with auto-animate and maybe it saves a bit of code but it leaves a pause in between the transition.

Is there a better way?

---
title: "test"
format:
  revealjs: 
    highlight-style: kate
    embed-resources: true # can't have self-contained if wanting to use chalkboard
    theme: simple
    #chalkboard: true # can’t use chalkboard if wanting self-contained
    #slide-level: 0
    fontsize: 1.5em
    progress: true
    code-copy: true
    code-fold: false
    code-link: true
    scrollable: true
    code-overflow: scroll
---

```{r}
library(tidyverse)
library(ggpubr)
library(ggmagnify)
library(emmeans)
library(knitr)
library(kableExtra)
library(gtsummary)
library(plotly)

Data

::: {.column width="50%"}

df <- data.frame("Failure" = c(23,54), "Success" = c(65,24), "Total" = c(452, 23))
row.names(df) <- c("Macular Thickness < 450", "Macular Thickness ≥ 450")
tbl <- kbl(df, align = rep('c', 4)) |> 
  column_spec(4, border_left = T) |> 
  column_spec(1, width = "5cm") |> 
  column_spec(2:4, width = "2cm") |>
  kable_paper("hover", bootstrap_options = c("condensed", "responsive"), full_width = F, font_size = 20)
tbl

:::

::: {.column width="50%"}

:::

---

Data

::: {.column width="50%"}

tbl |> 
  column_spec(2, color = "white", background = "red")

:::

::: {.column width="50%"}

:::

---

[pgseye]

Have found a hacky way of doing it with r-stack, which seems to work:

::: {.r-stack}
:::{.fragment .absolute left=0}
```{r}
df <- data.frame("Failure" = c(23,54), "Success" = c(65,24), "Total" = c(452, 23))
row.names(df) <- c("Macular Thickness < 450", "Macular Thickness ≥ 450")
tbl <- kbl(df, align = rep('c', 4)) |> 
  column_spec(4, border_left = T) |> 
  column_spec(1, width = "5cm") |> 
  column_spec(2:4, width = "2cm") |>
  kable_paper("hover", bootstrap_options = c("condensed", "responsive"), full_width = F, font_size = 20)
tbl

:::

:::{.fragment .absolute left=0}

tbl |> 
  column_spec(2, color = "white", background = "red")

:::

:::

[mcanouil]

Could you properly format your post to make it usable?
Also, please make it small. I don't believe there is need to install that many R packages to answer your question.

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)
```

![A placeholder image](https://placehold.co/600x400.png)

The end.
````