GitHub Actions

class: center, middle, inverse, title-slide

# GitHub Actions
## Exemplo com live coding
### Julio Trecenti
### International Seminar on Statistics with R
### Junho de 2021

---

<div>
<style type="text/css">.xaringan-extra-logo {
width: 110px;
height: 128px;
z-index: 0;
background-image: url(img/logo.png);
background-size: contain;
background-repeat: no-repeat;
position: absolute;
top:1em;right:1em;
}
</style>
<script>(function () {
  let tries = 0
  function addLogo () {
    if (typeof slideshow === 'undefined') {
      tries += 1
      if (tries < 10) {
        setTimeout(addLogo, 100)
      }
    } else {
      document.querySelectorAll('.remark-slide-content:not(.title-slide):not(.inverse):not(.hide_logo)')
        .forEach(function (slide) {
          const logo = document.createElement('a')
          logo.classList = 'xaringan-extra-logo'
          logo.href = 'http://ser.uff.br/'
          slide.appendChild(logo)
        })
    }
  }
  document.addEventListener('DOMContentLoaded', addLogo)
})()</script>
</div>

# Apresentação

---

# Hoje

- Github Actions live coding

- Exemplo com o [repositório do SeR](https://github.com/eventoseroficial/Data_and_Code)

---

# Gráfico

.panelset[

.panel[.panel-name[Pacotes]

```r
library(magrittr)
library(gh)
library(purrr)
library(tibble)
library(ggplot2)
library(lubridate)
```

]

.panel[.panel-name[Código]

```r
gh("/repos/eventoseroficial/Data_and_Code/commits") %>% 
  map_chr(pluck, "commit", "committer", "date") %>% 
  ymd_hms() %>% 
  floor_date("day") %>% 
  as.Date() %>% 
  enframe() %>% 
  ggplot(aes(value)) +
  geom_bar(fill = "darkblue", alpha = .8) +
  theme_minimal(14) +
  labs(
    x = "Data", 
    y = "Quantidade de commits",
    title = "Quantidade de commits no repositório do SeR 2021"
  )
```

]

.panel[.panel-name[Gráfico]

]

.panel[.panel-name[Link]

.center[

### https://github.com/eventoseroficial/Data_and_Code

]