README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  echo = FALSE
)

library(magrittr)

main_repo <- "main-dashboards"
turma <- "202109-dashboards"
num_aula <- 7
```

## Referências do curso

[Clique aqui](https://github.com/curso-r/main-dashboards/raw/master/material_do_curso.zip) para baixar o material do curso.

- R for Data Science: [https://r4ds.had.co.nz/](https://r4ds.had.co.nz/) (em inglês) e [https://es.r4ds.hadley.nz/](https://es.r4ds.hadley.nz/) (em espanhol).

- Nosso blog: [https://curso-r.com/blog/](https://curso-r.com/blog/)

## Dúvidas

Fora do horário de aula ou monitoria:

- perguntas gerais sobre o curso deverão ser feitas no Classroom.

- perguntas sobre R, principalmente as que envolverem código, deverão ser enviadas no [nosso fórum](https://discourse.curso-r.com/).

## Slides

```{r}
knitr::kable(
  tibble::tibble(
    slide = CursoRutils:::list_github_files(main_repo, "slides/", "html$"),
    HTML = paste0("https://curso-r.github.io/", main_repo, "/", slide)
  ) %>%
    dplyr::filter(!stringr::str_detect(slide, "_files/")) %>% 
    dplyr::mutate(
      slide = stringr::str_remove_all(slide, "slides/|\\..*"),
      PDF = stringr::str_replace(HTML, "html$", "pdf")
    ) %>% 
    dplyr::slice(1:7)
)
```


## Scripts utilizados em aula

### Parte prática

```{r}
pasta <- "pratica/"
knitr::kable(
  tibble::tibble(
    script = list.files(pasta, pattern = "R$"),
    link = paste0("https://curso-r.github.io/", turma, "/", pasta, script)
  ) |> 
    tibble::add_row(
      script = "Exemplo módulos 1",
      link = "https://github.com/curso-r/202109-dashboards/tree/master/pratica/21-modulos-1"
    ) |> 
    tibble::add_row(
      script = "Exemplo módulos 2",
      link = "https://github.com/curso-r/202109-dashboards/tree/master/pratica/22-modulos-2"
    ) |> 
    tibble::add_row(
      script = "Exemplo módulos 3",
      link = "https://github.com/curso-r/202109-dashboards/tree/master/pratica/22-modulos-2/versao-completa-purrr"
    )
)
```

## Lição de casa

```{r}
pasta <- "exercicios/"
knitr::kable(
  tibble::tibble(
    script = list.files(pasta, pattern = "^[0-9].*\\.R$"),
    link = paste0("https://curso-r.github.io/", turma, "/", pasta, script)
  ) %>% 
    dplyr::slice(1:13)
) 
```

## Lição de casa extra &#x1f913;

```{r}
pasta <- "exercicios/"
knitr::kable(
  tibble::tibble(
    script = list.files(pasta, pattern = "^extra.*\\.R$"),
    link = paste0("https://curso-r.github.io/", turma, "/", pasta, script)
  ) %>% 
    dplyr::slice(1:11)
) 
```

## Material extra

Referências extras comentadas nas aulas.

```{r}
readxl::read_excel("referencias_extras.xlsx") %>%
  dplyr::mutate(link = glue::glue("[{desc}]({url})")) %>%
  dplyr::select(-desc, -url) %>%
  knitr::kable(col.names = c("Tema", "Descrição"))
```


## Redes sociais da Curso-R

Instagram: https://www.instagram.com/cursoo_r/

Twitter: https://twitter.com/curso_r

Instagram: https://www.youtube.com/c/CursoR6/featured

Linkedin: https://www.linkedin.com/company/curso-r/

Facebook: https://www.facebook.com/cursodeR