Tabs

class: title-slide, center, middle

06

# Tabs

---
class: inverse, center, middle

# <center>Tabs</center>

1

---

# <center>Dealing with long reports</center>

.pull-left[

There is a hierarchy of hashes for tabs

```markdown

## Series Analysis {.tabset}

### Overview

### Ratings

```

Also

```markdown

# Series Analysis {.tabset}

## Overview

## Ratings
```

]

.pull-right[
/
![Screenshot of the tabsets with the headers as above](images/tabset.PNG)

]

???
A Return space/carriage is required between the tabs OR two spaces after the line.

Note to start a tabset there have to be 2 hashes and not the main header of one #

---
class: your-turn

# Your turn

Looking at `01-bakeoff-report.Rmd` together. 
Look at the source, then 🧶 **Knit** after each step.

1. Add a header `# Series Analysis {.tabset}`.

1. Change `# Overview` to `## Overview`.

1. Change `# Ratings` to `## Ratings`.

1. Remove the space in the second header `##Ratings`. What happens?

---
class: inverse, center, middle

# <center>Styling Tabs</center>

2

---

# <center>Styling Tabs</center>

.pull-left[

```markdown

# Series Analysis {.tabset .tabset-fade .tabset-pills}

## Overview

## Ratings

```
]

.pull-right[

![Screenshot of the tabsets with the headers as above, pillsets have rounded edges](images/tabset-pills.PNG)

]

---
class: inverse, center, middle

# <center>Dynamic tabs</center>

3

---
class: live-code

# Dynamic tabs

Together:

1. We'll add a new header `## Days {.tabset .tabset-fade .tabset-pills}`

1. <kbd>Ctrl + Alt + i</kbd> for a new R chunk.

1. Add the `results='asis'` in the chunk options.

1. Create a list of days

```markdown 
days <- viewers %>% select(days) %>% unique() %>% pull()
```

5. Copy loop code:

```markdown
for(i in days){ 
 cat("###", i, ' ', '\n')
 
 data <- viewers %>% 
 filter(days == i) 
 
 chart <- ggplot(data, aes(episode, 
 viewers, 
 colour = days, 
 group = days)) + 
 geom_point() + 
 geom_line() + 
 labs(
 x = "Episode", 
 y = "Viewers (millions)"
 ) +
 expand_limits(y = 0) 
 print(chart)
 cat('\n', ' ', '\n\n')
}
```

???
**The new code chunk must be below the Ratings section as that's where the `viewers` data is created.**

As with so much in R most things can be automated. If you were to require many tabs to be created for teams/wards/hospitals then automating this using a loop can be useful. First example shared in the [NHS-R Community demos and how tos](https://github.com/nhs-r-community/demos-and-how-tos/blob/main/rmarkdown/loop_tabs/loop_tabs.Rmd)

*`results='asis'`*

On 'asis' Note the use of the` results='asis'` chunk option. This is required to ensure that the raw table output isn’t processed further by knitr. The kable function includes several options to control the maximum number of digits for numeric columns, alignment, etc (refer to the knitr package documentation for additional details) - results slide https://lextuga007.github.io/rmd-workshop/slides/04-code-chunks.html#21

---

class: middle, center

# ⏱

# Time for a break!

---
class: inverse

# <center>Next section...</center>