portfolio.Rmd

---
title: "**Portfolio**"
link-citations: yes
output:
  html_document:
    toc: true
    toc_depth: 3
bibliography: references.bib
---

```{css, echo = FALSE}
body {
  font-size: 1.75em;
}

div.main-container {
  max-width: 1280px;
  margin-left: auto;
  margin-right: auto;
}

.center {
  margin-left: auto;
  margin-right: auto;
}
```


```{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 = "html"
)

# library
library(dplyr)
library(fontawesome)
library(kableExtra)
library(readxl)
library(roadoi)
```

<br>

## **Currículos** {.tabset}

<br>

```{r qualificacao}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "curriculo",
             col_types = c("text"))

for (i in 1:dim(data[1])) {
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat("### **", paste(data$Item[i], sep = ""), "**", "\n", sep = "")
  cat('<center>\n')
  if (!is.na(data$Item[i])) {
    cat(
      paste0(
        '<iframe src="',
        data$Link[i],
        '/preview" style="width:100%; height:600px; border:0;"></iframe>'
      )
    )
  } else {
    cat("<br>No data available<br>")
  }
  cat('\n</center>')
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat(paste(
    '<a style="float:right" href="#top"><b>Início',
    fa("circle-up"),
    '</b></a>'
  ))
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
}
```

<br>

## **Qualificação acadêmica** {.tabset}

<br>

```{r diplomas}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "qualificacao-academica",
             col_types = c("text"))

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("### **Síntese**", "\n", sep = "")
summ.table <- table(data[, 1])
summ.table <-
  cbind(names(summ.table), as.matrix(unlist(summ.table))[1, ])
colnames(summ.table) <- c("Item", "No.")
# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

for (i in 1:dim(data[1])) {
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat("### **", paste(data$Item[i], sep = ""), "**", "\n", sep = "")
  cat('<center>\n')
  if (!is.na(data$Item[i])) {
    cat(
      paste0(
        '<iframe src="',
        data$Link[i],
        '/preview" style="width:100%; height:600px; border:0;"></iframe>'
      )
    )
  } else {
    cat("<br>No data available<br>")
  }
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat('\n</center>')
  cat(paste(
    '<a style="float:right" href="#top"><b>Início',
    fa("circle-up"),
    '</b></a>'
  ))
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
}
```

<br>

## **Publicações e produção**

<br>

### **Artigos publicados em periódicos** {.tabset}

<br>

```{r artigos-em-periodicos, cache = TRUE, cache.path = "cache/"}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "artigos-em-periodicos",
             col_types = c("text"))
table <- data

# verifica se é open acess ou subscription
paper.year <- c()
for (i in 1:dim(data)[1]) {
  # check if DOI is missing and add link
  if (is.na(data[i, 3])) {
    # usa o link do DRIVE
    table[i, 3] <- paste0(
      "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
      data[i, 2],
      "\" target=\"_blank\">Solicitar acesso",
      "</a>"
    )
  }
  # add OPEN ACESS badge
  tryCatch(
    expr = {
      my_doi_oa <-
        roadoi::oadoi_fetch(dois = data[i, 3], email = "arthur_sf@icloud.com")
      paper.year <- c(paper.year, as.numeric(my_doi_oa$year))
      if (my_doi_oa$is_oa) {
        # usa a imagem do OA e o link pelo DOI
        table[i, 3] <- 
          paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"https://doi.org/",
            data[i, 3],
            "\" target=\"_blank\">",
            "<img height=\"18px;\" src=\"https://upload.wikimedia.org/wikipedia/commons/thumb/2/25/Open_Access_logo_PLoS_white.svg/256px-Open_Access_logo_PLoS_white.svg.png\">",
            "</a>"
          )
      } else {
        # usa o link do DRIVE
        table[i, 3] <- paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
            data[i, 2],
            "\" target=\"_blank\">Solicitar acesso",
            "</a>"
          )
      }
    },
    error = function(e) {
      
    }
  )
}

# drop link column
summ.table <- table [, -2]
colnames(summ.table) <- c("Produção", "Acesso")

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")

freq.table <- table(seq(min(paper.year), max(paper.year)))
freq.table[freq.table == 1] <- 0
freq.paper <- table(paper.year)
freq.table[match(names(freq.paper), names(freq.table))] <- freq.paper

summ.prod <- rbind(sum(freq.table), t(t(rev(freq.table))))
rownames(summ.prod) <- c("Total", seq(max(paper.year), min(paper.year)))

# print table
print(
  kableExtra::kable(summ.prod, align = c("l", rep(
    "c", ncol(summ.prod) - 1
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Produção anual**", "\n", sep = "")

barplot(freq.table, main = "Distribuição de publicações por ano", xlab = "Ano", ylab = "Frequência, n")

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Artigos**", "\n", sep = "")

# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  ) %>% kableExtra::scroll_box(width = "100%", height = "600px")
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
```

<br>

### **Preprints** {.tabset}

<br>

```{r preprints, cache = TRUE, cache.path = "cache/"}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "preprints",
             col_types = c("text"))
table <- data

# verifica se é open acess ou subscription
paper.year <- c()
for (i in 1:dim(data)[1]) {
  # check if DOI is missing and add link
  if (is.na(data[i, 3])) {
    # usa o link do DRIVE
    table[i, 3] <- paste0(
      "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
      data[i, 2],
      "\" target=\"_blank\">Solicitar acesso",
      "</a>"
    )
  }
  # add OPEN ACESS badge
  tryCatch(
    expr = {
      my_doi_oa <-
        roadoi::oadoi_fetch(dois = data[i, 3], email = "arthur_sf@icloud.com")
      paper.year <- c(paper.year, as.numeric(my_doi_oa$year))
      if (my_doi_oa$is_oa) {
        # usa a imagem do OA e o link pelo DOI
        table[i, 3] <- 
          paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"https://doi.org/",
            data[i, 3],
            "\" target=\"_blank\">",
            "<img height=\"18px;\" src=\"https://upload.wikimedia.org/wikipedia/commons/thumb/2/25/Open_Access_logo_PLoS_white.svg/256px-Open_Access_logo_PLoS_white.svg.png\">",
            "</a>"
          )
      } else {
        # usa o link do DRIVE
        table[i, 3] <- paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
            data[i, 2],
            "\" target=\"_blank\">Solicitar acesso",
            "</a>"
          )
      }
    },
    error = function(e) {
      
    }
  )
}

# drop link column
summ.table <- table [, -2]
colnames(summ.table) <- c("Produção", "Acesso")

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")

freq.table <- table(seq(min(paper.year), max(paper.year)))
freq.table[freq.table == 1] <- 0
freq.paper <- table(paper.year)
freq.table[match(names(freq.paper), names(freq.table))] <- freq.paper

summ.prod <- rbind(sum(freq.table), t(t(rev(freq.table))))
rownames(summ.prod) <- c("Total", seq(max(paper.year), min(paper.year)))

# print table
print(
  kableExtra::kable(summ.prod, align = c("l", rep(
    "c", ncol(summ.prod) - 1
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Produção anual**", "\n", sep = "")

barplot(freq.table, main = "Distribuição de publicações por ano", xlab = "Ano", ylab = "Frequência, n")

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Preprints**", "\n", sep = "")

# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  ) %>% kableExtra::scroll_box(width = "100%", height = "600px")
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
```

<br>

### **Livros** {.tabset}

<br>

```{r livros, cache = TRUE, cache.path = "cache/"}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "livros",
             col_types = c("text"))
table <- data

# verifica se é open acess ou subscription
paper.year <- c()
for (i in 1:dim(data)[1]) {
  # check if DOI is missing and add link
  if (is.na(data[i, 3])) {
    # usa o link do DRIVE
    table[i, 3] <- paste0(
      "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
      data[i, 2],
      "\" target=\"_blank\">Solicitar acesso",
      "</a>"
    )
  }
  # add OPEN ACESS badge
  tryCatch(
    expr = {
      my_doi_oa <-
        roadoi::oadoi_fetch(dois = data[i, 3], email = "arthur_sf@icloud.com")
      paper.year <- c(paper.year, as.numeric(my_doi_oa$year))
      if (my_doi_oa$is_oa) {
        # usa a imagem do OA e o link pelo DOI
        table[i, 3] <- 
          paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"https://doi.org/",
            data[i, 3],
            "\" target=\"_blank\">",
            "<img height=\"18px;\" src=\"https://upload.wikimedia.org/wikipedia/commons/thumb/2/25/Open_Access_logo_PLoS_white.svg/256px-Open_Access_logo_PLoS_white.svg.png\">",
            "</a>"
          )
      } else {
        # usa o link do DRIVE
        table[i, 3] <- paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
            data[i, 2],
            "\" target=\"_blank\">Solicitar acesso",
            "</a>"
          )
      }
    },
    error = function(e) {
    }
  )
}

# drop link column
summ.table <- table [, -2]
colnames(summ.table) <- c("Produção", "Acesso")

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")

freq.table <- table(seq(min(paper.year), max(paper.year)))
freq.table[freq.table == 1] <- 0
freq.paper <- table(paper.year)
freq.table[match(names(freq.paper), names(freq.table))] <- freq.paper

summ.prod <- rbind(sum(freq.table), t(t(rev(freq.table))))
rownames(summ.prod) <- c("Total", seq(max(paper.year), min(paper.year)))

# print table
print(
  kableExtra::kable(summ.prod, align = c("l", rep(
    "c", ncol(summ.prod) - 1
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Produção anual**", "\n", sep = "")

barplot(freq.table, main = "Distribuição de publicações por ano", xlab = "Ano", ylab = "Frequência, n")

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Livros**", "\n", sep = "")

# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  ) %>% kableExtra::scroll_box(width = "100%", height = "600px")
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
```

<br>

### **Capítulos de livros** {.tabset}

<br>

```{r capitulos, cache = TRUE, cache.path = "cache/"}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "capitulos",
             col_types = c("text"))
table <- data

# verifica se é open acess ou subscription
paper.year <- c()
for (i in 1:dim(data)[1]) {
  # check if DOI is missing and add link
  if (is.na(data[i, 3])) {
    # usa o link do DRIVE
    table[i, 3] <- paste0(
      "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
      data[i, 2],
      "\" target=\"_blank\">Solicitar acesso",
      "</a>"
    )
  }
  # add OPEN ACESS badge
  tryCatch(
    expr = {
      my_doi_oa <-
        roadoi::oadoi_fetch(dois = data[i, 3], email = "arthur_sf@icloud.com")
      paper.year <- c(paper.year, as.numeric(my_doi_oa$year))
      if (my_doi_oa$is_oa) {
        # usa a imagem do OA e o link pelo DOI
        table[i, 3] <- 
          paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"https://doi.org/",
            data[i, 3],
            "\" target=\"_blank\">",
            "<img height=\"18px;\" src=\"https://upload.wikimedia.org/wikipedia/commons/thumb/2/25/Open_Access_logo_PLoS_white.svg/256px-Open_Access_logo_PLoS_white.svg.png\">",
            "</a>"
          )
      } else {
        # usa o link do DRIVE
        table[i, 3] <- paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
            data[i, 2],
            "\" target=\"_blank\">Solicitar acesso",
            "</a>"
          )
      }
    },
    error = function(e) {
    }
  )
}

# drop link column
summ.table <- table [, -2]
colnames(summ.table) <- c("Produção", "Acesso")

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")

freq.table <- table(seq(min(paper.year), max(paper.year)))
freq.table[freq.table == 1] <- 0
freq.paper <- table(paper.year)
freq.table[match(names(freq.paper), names(freq.table))] <- freq.paper

summ.prod <- rbind(sum(freq.table), t(t(rev(freq.table))))
rownames(summ.prod) <- c("Total", seq(max(paper.year), min(paper.year)))

# print table
print(
  kableExtra::kable(summ.prod, align = c("l", rep(
    "c", ncol(summ.prod) - 1
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Produção anual**", "\n", sep = "")

barplot(freq.table, main = "Distribuição de publicações por ano", xlab = "Ano", ylab = "Frequência, n")

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Capítulos**", "\n", sep = "")

# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  ) %>% kableExtra::scroll_box(width = "100%", height = "600px")
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
```

<br>

### **Resumos publicados em anais de eventos** {.tabset}

<br>

```{r resumos-eventos, cache = TRUE, cache.path = "cache/"}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "resumos-eventos",
             col_types = c("text"))
table <- data

# verifica se é open acess ou subscription
paper.year <- c()
for (i in 1:dim(data)[1]) {
  # check if DOI is missing and add link
  if (is.na(data[i, 3])) {
    # usa o link do DRIVE
    table[i, 3] <- paste0(
      "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
      data[i, 2],
      "\" target=\"_blank\">Solicitar acesso",
      "</a>"
    )
  }
  # add OPEN ACESS badge
  tryCatch(
    expr = {
      my_doi_oa <-
        roadoi::oadoi_fetch(dois = data[i, 3], email = "arthur_sf@icloud.com")
      paper.year <- c(paper.year, as.numeric(my_doi_oa$year))
      if (my_doi_oa$is_oa) {
        # usa a imagem do OA e o link pelo DOI
        table[i, 3] <- 
          paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"https://doi.org/",
            data[i, 3],
            "\" target=\"_blank\">",
            "<img height=\"18px;\" src=\"https://upload.wikimedia.org/wikipedia/commons/thumb/2/25/Open_Access_logo_PLoS_white.svg/256px-Open_Access_logo_PLoS_white.svg.png\">",
            "</a>"
          )
      } else {
        # usa o link do DRIVE
        table[i, 3] <- paste0(
            "<a style=\"display: inline-block; float: left; margin:0.0em 0.2em 0.0em 0.0em; padding:0.0em 0.2em 0.0em 0.0em;\" href=\"",
            data[i, 2],
            "\" target=\"_blank\">Solicitar acesso",
            "</a>"
          )
      }
    },
    error = function(e) {
      
    }
  )
}

# drop link column
summ.table <- table [, -2]
colnames(summ.table) <- c("Produção", "Acesso")

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")

freq.table <- table(seq(min(paper.year), max(paper.year)))
freq.table[freq.table == 1] <- 0
freq.paper <- table(paper.year)
freq.table[match(names(freq.paper), names(freq.table))] <- freq.paper

summ.prod <- rbind(sum(freq.table), t(t(rev(freq.table))))
rownames(summ.prod) <- c("Total", seq(max(paper.year), min(paper.year)))

# print table
print(
  kableExtra::kable(summ.prod, align = c("l", rep(
    "c", ncol(summ.prod) - 1
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Produção anual**", "\n", sep = "")

barplot(freq.table, main = "Distribuição de publicações por ano", xlab = "Ano", ylab = "Frequência, n")

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')

cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Resumos**", "\n", sep = "")

# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  ) %>% kableExtra::scroll_box(width = "100%", height = "600px")
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat('\n</center>')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
```

<br>

### **Aplicativos com registro** {.tabset}

<br>

```{r aplicativos-com-registro}
# read separate sheets
data <-
  read_excel("Links.xlsx",
             sheet = "aplicativos-com-registro",
             col_types = c("text"))

# síntese quantitativa
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Síntese**", "\n", sep = "")
summ.table <- table(data[, 1])
summ.table <- cbind(names(summ.table), as.matrix(unlist(summ.table))[1, ])
colnames(summ.table) <- c("Item", "No.")
# print table
print(
  kableExtra::kable(summ.table, align = c("l", rep(
    "c", ncol(summ.table) - 2
  ), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')


# links
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat("#### **Links**", "\n", sep = "")
table <- data[, -ncol(data)]
table[is.na(table)] <- ""
# print table
print(
  kableExtra::kable(table, align = c("l", rep("c", ncol(table) - 2), "r"), escape = FALSE, format = "html") %>% kableExtra::kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = T,
    position = "center"
  )
)
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')
cat(paste(
  '<a style="float:right" href="#top"><b>Início',
  fa("circle-up"),
  '</b></a>'
))
cat('\n\n<!-- -->\n\n')
cat('\n\n<!-- -->\n\n')


# previews
for (i in 1:dim(data[1])) {
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat("#### **", paste(data$Item[i], sep = ""), "**", "\n", sep = "")
  cat('<center>\n')
  if (!is.na(data$Item[i])) {
    cat(
      paste0(
        '<iframe src="',
        data$Link[i],
        '/preview" style="width:100%; height:600px; border:0;"></iframe>'
      )
    )
  } else {
    cat("<br>No data available<br>")
  }
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
  cat('\n</center>')
  cat(paste(
    '<a style="float:right" href="#top"><b>Início',
    fa("circle-up"),
    '</b></a>'
  ))
  cat('\n\n<!-- -->\n\n')
  cat('\n\n<!-- -->\n\n')
}
```