bibliografica.Rmd

---
title: Produções bibliográficas
output:
  html_document:
    toc: true
    toc_float: true
    css:
      - ./CSS/generic.css
      - ./CSS/logo-above-toc.css
      - ./CSS/main-color.css
      - ./CSS/narrow-margins.css
      - ./CSS/responsive.css
---

<!--set up-->
```{r setup, include = FALSE, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', out.width = "100%", results = "hide"}
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  fig.align = 'center',
  results = 'asis',
  include = TRUE,
  out.width = "100%",
  knitr.kable.NA = '',
  knitr.table.format = ifelse(knitr::is_html_output(), "html", "latex"),
  webshot = "webshot",
  dev = "png"
)
```

<!--load caches-->
```{r load-caches, echo = FALSE, include = FALSE}
folders <- list.dirs(file.path("cache/"), full.names = FALSE, recursive = FALSE)
for(folder in folders){
    knitr::load_cache(label = folder, path = paste0(file.path("cache", folder), "/"))
}
```

<!--script for inserting LOGO ABOVE THE TOC-->
```{js}
$(document).ready(function() {
  $('#TOC').parent().prepend('<div id=\"nav_logo\"><img src="PPG/Images/logo-programa.png"></div>');
  });
```

<!--script for sharing-->
<p align="right">
```{r share}
home <- metadata$repository_url
source("Scripts/social-media-sharing.R", local = knitr::knit_global())
```
</p>

<!--script for generating ALTMETRIC badges-->
<script type='text/javascript' src='https://d1bxh8uas1mnw7.cloudfront.net/assets/embed.js'></script>

<!--script for generating multiple DIMENSIONS badges-->
<script async src="https://badge.dimensions.ai/badge.js" charset="utf-8"></script>

<!--script for generating multiple PLUMX badges-->
<script type="text/javascript" src="//cdn.plu.mx/widget-all.js"></script>

<br>

## **Artigo em jornal ou revista** {#jornal-revista}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r jornal-revista-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "ARTIGO EM JORNAL OU REVISTA", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "ARTIGO EM JORNAL OU REVISTA", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Artigo em Jornal ou Revista (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Artigo em periódico** {#artigo-periodico}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r artigos-periodicos-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "ARTIGO EM PERIÓDICO", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "ARTIGO EM PERIÓDICO", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Artigo em Periódico (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Livro**  {#livro}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r livro-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "LIVRO", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "LIVRO", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Livro (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Partitura** {#partitura}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r partitura-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "PARTITURA", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "PARTITURA", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Partitura (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Trabalho em anais** {#trabalho-em-anais}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r trabalho-anais-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "TRABALHO EM ANAIS", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "TRABALHO EM ANAIS", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Trabalho em Anais (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Tradução** {#traducao}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r traducao-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "TRADUÇÃO", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "TRADUÇÃO", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Tradução (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>

## **Outro** {#outro}

<!--script for generating HORIZONTAL LINE-->
<hr style="height:2px;border-width:0;color:black;background-color:black">

```{r, eval = !has.sucupira.files}
cat('<br>')
```

```{r outro-tabela, eval = has.sucupira.files}
# produção
sheet <- "Produções - Autores"
source("Scripts/read-xlsx-sucupira.R", local = knitr::knit_global())

# get years
source("Scripts/years-sucupira.R", local = knitr::knit_global())
names(sucupira.list) <- as.character(anos)

# get data for the current period
produtos <- sucupira.list[as.character(anos)] %>%
  plyr::compact()
produtos <- data.frame(do.call(dplyr::bind_rows, produtos))
names(produtos) <-
  names(sucupira.list[[as.character(max(as.numeric(names(sucupira.list))))]])

# select products
produtos <- produtos[produtos$`Tipo de Produção` == "BIBLIOGRÁFICA", ]

# select products
produtos <- produtos[produtos$`Subtipo de Produção` == "OUTRO", ]

# remove rows with NA in all columns
produtos <- produtos[rowSums(is.na(produtos)) < ncol(produtos), ]

# get years
produtos$'Ano' <- substr(as.Date(produtos$`Ano da Produção`, format = "%Y"), 1, 4)

# format names
produtos$`Nome da Produção` <- tools::toTitleCase(tolower(produtos$`Nome da Produção`))
produtos$`Nome do Autor` <- tools::toTitleCase(tolower(produtos$`Nome do Autor`))
produtos$`Categoria do Autor` <- tools::toTitleCase(tolower(produtos$`Categoria do Autor`))

# produção detalhes
produtos.detalhes <- metricas_all

# loop
produtos.list <- list()
if (dim(produtos)[1] != 0) {
  for (i in 1:length(unique(produtos$"ID da Produção"))) {
    id <- unique(produtos$"ID da Produção")[i]
    produtos.id <- produtos[produtos$"ID da Produção" == id,]
    for (j in 1:length(produtos.id$"Nome do Autor")) {
      try(if (produtos.id$"Categoria do Autor"[j] == "Discente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "¹", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Egresso") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "²", "</b>")
      }, silent = TRUE)
      try(if (produtos.id$"Categoria do Autor"[j] == "Docente") {
        produtos.id$"Nome do Autor"[j] <-
          paste0("<b>", produtos.id$"Nome do Autor"[j], "³", "</b>")
      }, silent = TRUE)
    }
    # get product metadata
    source("Scripts/get-producao-metadata.R", local = knitr::knit_global())
    metadata <- get_id_metadata(id = id, subtipo = "TRADUÇÃO", produtos.detalhes = produtos.detalhes)
    produtos.list[[i]] <- data.frame(
      "Ano" = produtos.id$"Ano da Produção"[1],
      "Título" = produtos.id$"Nome da Produção"[1],
      "Autores" = paste0(
        # remove NA values from Nome do Autor
        produtos.id$"Nome do Autor"[!is.na(produtos.id$"Nome do Autor")],
        collapse = "; "
      ),
      "Detalhamento" = metadata$detalhamento[1],
      "Altmetric" = unique(produtos.detalhes$altmetric_score[produtos.detalhes$"ID da Produção" == id]),
      "CiteScore" = unique(produtos.detalhes$SJR[produtos.detalhes$"ID da Produção" == id]),
      "SJR" = unique(produtos.detalhes$CiteScore[produtos.detalhes$"ID da Produção" == id]),
      "Qualis" = unique(produtos.detalhes$Qualis[produtos.detalhes$"ID da Produção" == id]),
      "Citações" = unique(produtos.detalhes$citations[produtos.detalhes$"ID da Produção" == id])
    )
  }
}
produtos.df <- data.frame(do.call(dplyr::bind_rows, produtos.list))

# remove duplicates
produtos.df <- unique(produtos.df)

table <- produtos.df %>% dplyr::arrange(
  dplyr::desc(as.numeric(produtos.df$'Ano')),
  produtos.df$'Título'
)

cat('\n\n<!-- -->\n\n')
source("Scripts/table-with-buttons.R", local = knitr::knit_global())
create_dt(table, title = "Produções - Outra produção bibliográfica (¹Discente, ²Egresso, ³Docente)")
cat("**Autoria**: ¹Discente, ²Egresso, ³Docente")

source("Scripts/fonte-metricas.R", local = knitr::knit_global())
```

<br>