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-r4ds-1"
turma <- "202110-r4ds-1"
num_aula <- 7
```

## Referências do curso

- [Clique aqui](https://github.com/curso-r/main-r4ds-1/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/).

## Trabalhos finais premiados

```{r echo=FALSE}
nome_pasta <- "trabalho_final"


# https://curso-r.github.io/202110-r4ds-1/trabalho_final/Amanda_Silva_Mendes/index.html


tibble::tibble(
  nome = list.files(nome_pasta, recursive = FALSE),
  link = paste0(
    "https://curso-r.github.io/",
    turma, "/",
    nome_pasta, "/",
    nome
  ), 
  
  codigo = paste0(
    "https://github.com/curso-r/",
    turma, "/tree/main/",
    nome_pasta, "/",
    nome
  )
) |>  
  dplyr::mutate(nome = stringr::str_replace_all(nome, "_", " ")) |> 
  knitr::kable(col.names = c("Nome", "Trabalho", "Código"))
```


## Slides

```{r}
knitr::kable(
  tibble::tibble(
    slide = CursoRutils:::list_github_files(main_repo, "slides/", "html"),
    link = paste0("https://curso-r.github.io/", main_repo, "/", slide)
  ) %>%
    dplyr::filter(!stringr::str_detect(slide, "_files/"))
)
```


## Scripts utilizados em aula

### Parte teórica

```{r}
pasta <- "scripts/"
knitr::kable(
  tibble::tibble(
    script = list.files(pasta, pattern = "R$"),
    link = paste0("https://curso-r.github.io/", turma, "/", pasta, script)
  ) 
)
```

### Parte prática

```{r}
pasta <- "pratica/"
knitr::kable(
  tibble::tibble(
    script = list.files(pasta, pattern = "R$|.Rmd"),
    link = paste0("https://curso-r.github.io/", turma, "/", pasta, script)
  )
)
```

## Lição de casa

```{r}
readxl::read_excel("tab_exercicios.xlsx") %>%
  dplyr::filter(extra == "nao", aula <= num_aula) %>% 
  dplyr::mutate(link = glue::glue("[{desc}]({url})")) %>%
  dplyr::select(-desc, -url, -extra) %>%
  dplyr::arrange(aula) %>% 
  knitr::kable(col.names = c("Aula", "Descrição"))
```

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

```{r}
readxl::read_excel("tab_exercicios.xlsx") %>%
  dplyr::filter(extra == "sim", aula <= num_aula) %>% 
  dplyr::mutate(link = glue::glue("[{desc}]({url})")) %>%
  dplyr::select(-desc, -url, -extra) %>%
  dplyr::arrange(aula) %>% 
  knitr::kable(col.names = c("Aula", "Descrição"))
```

## Material extra

Referências extras comentadas nas aulas, ou materiais que comentamos quando tiramos dúvidas (não necessariamente são relacionadas com o conteúdo da aula).

```{r echo=FALSE, message=FALSE}
googlesheets4::gs4_deauth()
"1SmCKCvJBff3CVty-xYKJ4NhEo2j6sUwkdET46vQisDY" %>% 
  googledrive::as_id() %>% 
  googlesheets4::read_sheet(main_repo) %>%
  dplyr::mutate(link = glue::glue("[{desc}]({url})")) %>%
  dplyr::select(-desc, -url) %>%
  dplyr::arrange(aula) %>% 
  dplyr::filter(aula <= num_aula) %>% 
  knitr::kable(col.names = c("Aula", "Tema", "Descrição")) 

```

## Redes sociais da Curso-R


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

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

Twitter: https://twitter.com/curso_r

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

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