session-styling.qmd

---
title: "Introduction to R and Rstudio"
subtitle: "Session  - styling code"
---

## Code style

```{r}
#| echo: false
#| label: "libs"
#| include: false
library(readr)
library(countdown)

```

```{r}
#| echo: false 
beds_data <- read_csv("https://raw.githubusercontent.com/nhs-r-community/intro_r_data/main/beds_data.csv", 
    col_types = cols(date = col_date(format = "%d/%m/%Y")), 
    skip = 3)
```

An updated version of R4DS now includes a section on [code style](https://r4ds.hadley.nz/workflow-style.html) 

It particularly mentions the package {styler} which, when run becomes an addin to RStudio, and automatically applies the [tidyverse style](https://style.tidyverse.org/) to code

```{r}
install.packages("styler")
```

## Indentation

RStudio also automatically indents according to the function bracket positions

Highlighting line of code using the keyboard shortcut `Ctrl+i` applies indents

## Have a go - look at automatic indentation

- `beds_data` then press return, where does the cursor go?
- `beds_data |> ` then return, where does the cursor go now?
- `beds_data |> select(org_name, org_code)` and put the select on a new line, then put `org_code` onto a new line.
- Copy the following to the Editor and indent using `Ctrl+i`:

```{r}
beds_data |> 
select(org_code,
everything)
```



```{r}
#| echo: false
#| eval: true
countdown::countdown(minutes = 8,
                     color_border = "#005EB8",
                     color_text = "#005EB8",
                     color_running_text = "white",
                     color_running_background = "#005EB8",
                     color_finished_text = "#005EB8",
                     color_finished_background = "white",
                     margin = "0.9em",
                     font_size = "2em")
```

## Space code

Using spaces helps with readability

The code below will run as R doesn't need spaces to work:

```{r}
beds_dataset=beds_data|>summarise(total_beds=sum(beds_av,na.rm=TRUE),total_occupancy=sum(occ_av,na.rm=TRUE),.by=org_name)|>mutate(perc_occ=total_occupancy/total_beds)|>arrange(desc(perc_occ))
```

Putting the spaces in can be effort after it's been written

## Have a go - {styler}

Firstly copy the code without spaces to the document

```{r}
beds_dataset=beds_data|>summarise(total_beds=sum(beds_av,na.rm=TRUE),total_occupancy=sum(occ_av,na.rm=TRUE),.by=org_name)|>mutate(perc_occ=total_occupancy/total_beds)|>arrange(desc(perc_occ))
```
  
With {styler} loaded `library(styler)` go to the Add in drop down menu and select `Style Active File`

```{r}
#| echo: false
#| eval: true
countdown::countdown(minutes = 5,
                     color_border = "#005EB8",
                     color_text = "#005EB8",
                     color_running_text = "white",
                     color_running_background = "#005EB8",
                     color_finished_text = "#005EB8",
                     color_finished_background = "white",
                     margin = "0.9em",
                     font_size = "2em")
```

## End session