index.qmd

---
title: "Blog"
listing:
  - id: posts-pt
    contents: posts/**/index.qmd
    sort: "date desc"
    type: default
    categories: false
    sort-ui: false
    filter-ui: true
    feed: true
    page-size: 12
    fields: [image, date, title, author, categories]  
  - id: posts-en
    contents: posts/**/english.qmd
    sort: "date desc"
    type: default
    categories: false
    sort-ui: false
    filter-ui: true
    feed: true
    page-size: 12
    fields: [image, date, title, author, categories]      
page-layout: full
title-block-banner: true
comments: false
toc: true
lang: pt
---

## Textos escritos por...

```{r}
#| echo: false
## código reaproveitado do repo: 
## https://github.com/beatrizmilz/materiais_estudo_R
gerar_lista_contrib <- function() {
  pessoas_contribuidoras <-
    allcontributors::get_contributors(
      org = "R-Ladies-Sao-Paulo",
      repo = "blog",
      type = c("code", "issues"),
      quiet = TRUE
    )  |>
    tibble::as_tibble()  |>
    # adicionar pessoas que contribuiram via google docs
    tibble::add_row(logins = "anacarolinamoreno",
                    avatar = "https://avatars.githubusercontent.com/u/13514467?v=4") |>
    tibble::add_row(logins = "ornscar",
                    avatar = "https://avatars.githubusercontent.com/u/62913147?v=4") |>
    
    tibble::add_row(logins = "https://www.linkedin.com/in/aprocha/",
                    avatar = "img/aprocha.jpg") |>
    tibble::add_row(logins = "https://www.linkedin.com/in/gabrielamorita/", avatar = "img/gabriela-morita.jpg") |>
    tibble::add_row(logins = "https://www.linkedin.com/in/karina-ferrara-barros/", avatar = "img/karina-ferrara.jpg") |>
        tibble::add_row(logins = "https://www.linkedin.com/in/luana-antunes-alexandre-aa572b48/", avatar = "img/luana-antunes.jpg") |>
       tibble::add_row(logins = "https://www.linkedin.com/in/katia-mine-kem2710/", avatar = "img/katia-mine.jpg") |>
     tibble::add_row(logins = "https://www.linkedin.com/in/michelecaramigo/", avatar = "img/michele-caramigo.jpg") |>
      tibble::add_row(logins = "https://www.linkedin.com/in/angelavalle/", avatar = "img/angela-valle.jpg") |>
          tibble::add_row(logins = "https://www.linkedin.com/in/brunagarbes/", avatar = "img/bruna-garbes.jpeg") |>
    
    dplyr::mutate(
      url = dplyr::if_else(
        stringr::str_starts(logins, "http"),
        logins,
        glue::glue("https://github.com/{logins}")
      ) ,
      link = glue::glue("[{logins}]({url})")
    )  |>
    dplyr::filter(!logins %in% c("actions-user"))  |>
    dplyr::arrange(logins)
  
  cat("<center>")
  
  for (i in 1:nrow(pessoas_contribuidoras)) {
    pessoa <- pessoas_contribuidoras[i,]
    cat(
      glue::glue(
        '
     <a href={pessoa$url}>
    <img src="{pessoa$avatar}" width="100" style="vertical-align: middle; border-radius: 50%;">
    </a>
    '
      )
    )
  }
  
    cat("</center>")
}
```

```{r}
#| results: asis
#| echo: false
#| message: false
#| warning: false
gerar_lista_contrib()
```

## Textos em Português

::: {#posts-pt}
:::

## Textos traduzidos para o Inglês

::: {#posts-en}
:::

## Apoio financeiro/Sponsor

[![R Consortium](https://www.r-consortium.org/wp-content/uploads/sites/13/2016/09/RConsortium_Horizontal_Pantone.png){fig-alt="R Consortium Logo" fig-align="center" width="50%"}](https://www.r-consortium.org/all-projects/r-user-group-support-program)