Bingo Rmarkdown

board.Rmd

---
params:
  board: null
  n: 0
  total: 0
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(include = FALSE)
library(gt)
```

```{r, include=TRUE, echo=FALSE}
params$board |>
  gt() |>
  tab_header("Cascadia R Conf 2023 Bingo") |>
  cols_align("center") |>
  tab_style(
    style = list(
      cell_borders(
        color = "#000000",
        weight = px(2)
      )
    ),
    locations = list(
      cells_body(),
      cells_column_labels(),
      cells_title()
    )
  ) |>
    tab_style(
    style = list(
      cell_text(size="xx-large", v_align="middle", weight="bold")
    ),
    locations = list(
      cells_column_labels(),
      cells_title()
    )
  ) |>
    tab_style(
    style = list(
      cell_borders(
        color = "#000000",
        weight = px(2)
      ),
      css(`min-height`="150px",
          `max-height`="150px",
          `height`="150px",
          `min-width`="150px",
          `max-width`="150px",`word-wrap`="break-word")
    ),
    locations = list(
      cells_body(),
      cells_column_labels(),
      cells_title()
    )
  ) |>
  tab_style(
    style = list(
      cell_fill(
        color = "#e0e0e0"
      )
    ),
    locations = list(
      cells_column_labels(),
      cells_body(3,3)
    )
  )


```

```{r, results="asis", include=TRUE, echo=FALSE}
glue::glue('<p style="text-align: right">{params$n}/{params$total}</p>')
```