Increase dimensions of html box in chunk output

[arthur.t]

I've had a few issues with html tables in the RStudio notebook window.

I haven't found a way to adjust the size of the html output in the window. The default size is very narrow and I can often see only a few columns at a time.

Second, I struggle with the scrolling. I find that in order to scroll left/right, I first have to scroll all the way to the bottom of the table. It makes it pretty difficult to scan through large tables.

Can I just use the default tibble printing or view()? Yes, and I do this sometimes. But there are other times where the table formatting in the html tables is essential to seeing the data correctly.

Any tips? Thanks!

---
title: "R Notebook"
output: html_notebook
---

```{r}
library(tidyverse)
library(gt)

df <- mtcars %>% rename_with(~str_c("car_model_", .))
df

gt(df)

[arthur.t]

I find I can use tab_options(container.height = 400) to make the scrolling work better within the html box.

However, I can't seem to increase the width of the html box. Is it possible that a future version of RStudio will allow this? The current html box width is only about 800 pixels, which is very narrow for modern monitors.

---
title: "R Notebook"
output: html_notebook
---

```{r}
library(tidyverse)
library(gt)

df <- mtcars %>% as_tibble(rownames = "name") %>% rename_with(~str_c("car_model_", .)) 
df

gt(df) %>% 
  tab_style(
    style = list(cell_text(size = "small", stretch = "ultra-condensed")),
    locations = list(cells_body(), cells_column_labels())
  )

df %>%
  group_by(car_model_cyl) %>%
  gt() %>% 
  tab_options(
    container.height = 400, 
    table.font.size = 11
  ) %>%
  tab_style(style = cell_text(weight = "bold"), locations = cells_column_labels()) %>%
  tab_style(style = list(cell_text(weight = "bold"), cell_fill("lightgrey")), locations = cells_row_groups()) %>%
  tab_style(
    style = cell_fill(color = "pink"), locations = cells_body(rows = car_model_name == "Valiant")
  )