README.Rmd

---
output: github_document
---


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

## Projeto de pesquisa de doutorado

### Conteúdo

Link direto: https://rdurl0.github.io/Projeto/

```{r echo=FALSE, results='asis'}
library(tidyverse)

arquivos <- list.files("./docs")[str_detect(list.files("./docs"), "html")]

url <- paste0("https://rdurl0.github.io/Projeto/docs/", arquivos)

indice <- arquivos %>% 
  str_remove("^[:digit:]") %>%
  str_remove("^[:digit:]") %>%
  str_remove(".html") %>%
  str_replace_all("_", " ") %>%
  paste0("#### ", .)
```



`r indice[1]` [clique aqui](`r url[1]`)

`r indice[2]` [clique aqui](`r url[2]`)

`r indice[3]` [clique aqui](`r url[3]`)

`r indice[4]` [clique aqui](`r url[4]`)

`r indice[5]` [clique aqui](`r url[5]`)

`r indice[6]` [clique aqui](`r url[6]`)

`r indice[7]` [clique aqui](`r url[7]`)

`r indice[8]` [clique aqui](`r url[8]`)

`r indice[9]` [clique aqui](`r url[9]`)