Data frame paged print out too large in revealjs format

[vrbiki]

System details

RStudio Edition: Desktop
RStudio Version : 2022.07.1 Build 554
OS Version      :  MacOS 12.6
R Version       : 4.2.1

Steps to reproduce the problem

1. Create a new Quarto Presentation
2. Set the output to revealjs, and df-print to paged
3. Add a slide with an r chunk calling a data frame
4. Render the presentation

Minimal example:

---
title: "Untitled"
format: 
  revealjs:
    df-print: paged
editor: visual
---

## Cars Data

```{r}
cars
```

Describe the problem in detail

The page scroller is not visible in presentation format. I can only see the first 8 rows and the rest gets cut off. When I change the format to HTML it appears to be working fine.

Describe the behavior you expected

I expect the font to be rescaled for this df_print: paged option so to that the entire table (10 rows + scrolling bar) are visible.

• I have read the guide for submitting good bug reports.
• [x ] I have installed the latest version of RStudio, and confirmed that the issue still persists.
• If I am reporting an RStudio crash, I have included a diagnostics report.
• [ x] I have done my best to include a minimal, self-contained set of instructions for consistently reproducing the issue.