sobre.Rmd

---
title: "**Sobre**"
link-citations: yes
output:
  html_document:
    toc: true
    css:
      - CSS/main-color.css
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;
}
```

<br>

<!--read additional files-->
```{r packages-sources, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%"}
# most packages work fine if installed from CRAN
packs.cran <-
  c(
    "anytime",
    # plyr first, then dplyr
    "plyr",
    "dplyr",
    "fontawesome",
    "gridExtra",
    "hrbrthemes",
    "httpuv",
    "janitor",
    "knitr",
    "kableExtra",
    "lubridate",
    "magrittr",
    "packup",
    "readxl",
    "roadoi",
    "rorcid",
    "tidyverse",
    "tools",
    "usethis"
  )

for (i in 1:length(packs.cran)) {
  if (!require(packs.cran[i], character.only = TRUE, quietly = TRUE))
    install.packages(packs.cran[i], character.only = TRUE)
}

# other packages work better if installed from github
packs.git <-
  c("cssparser",
    "packup",
    "rcrossref",
    "emo"
    )

if (!require("cssparser", character.only = TRUE, quietly = TRUE))
  remotes::install_github('coolbutuseless/cssparser')

if (!require("packup", character.only = TRUE, quietly = TRUE))
  devtools::install_github("milesmcbain/packup")

if (!require("rcrossref", character.only = TRUE, quietly = TRUE))
  devtools::install_github("ropensci/rcrossref")

if (!require("emo", character.only = TRUE, quietly = TRUE))
  devtools::install_github("hadley/emo")

# load all libraries
packs <- c(packs.cran, packs.git)

for (i in 1:length(packs)) {
  library(packs[i], character.only = TRUE)
}
```

```{r main-color, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%"}
# read CSS color for this page
css <- read_css("CSS/main-color.css")
main.color <- css$`:root`$`--mybackgroundcolor`
```

<!--read additional files-->
```{r source-metrics-scripts, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%"}
source(file.path("Scripts", "citescore.R"), local = knitr::knit_global())
source(file.path("Scripts", "sjr.R"), local = knitr::knit_global())
source(file.path("Scripts", "webqualis.R"), local = knitr::knit_global())

source(file.path("Scripts", "get_citescore.R"),
       local = knitr::knit_global())
source(file.path("Scripts", "get_sjr.R"), local = knitr::knit_global())
source(file.path("Scripts", "get_webqualis.R"),
       local = knitr::knit_global())
# get metrics from Scopus, SCIMago and CAPES
source(file.path("Scripts", "get-metrics-from-sources.R"), local = knitr::knit_global())
```

### **Bio** {#autor}

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

<div class="row"><center>

<div class="col-sm-4"><center>
![](ASF.png)
</center></div>

<div class="col-sm-8"><right>

#### **Arthur de Sá Ferreira**  {-}

#### *FT, Eng Biomed, MSc, DSc*  {-}

##### `r library(emo); flag("Brazil")` Rio de Janeiro  {-}

<br>

<!--ORCID badge-->
<div itemscope itemtype="https://schema.org/Person"><a itemprop="sameAs" content="https://orcid.org/0000-0001-7014-2002" href="https://orcid.org/0000-0001-7014-2002" target="orcid.widget" rel="me noopener noreferrer" style="vertical-align:top;"><img src="https://orcid.org/sites/default/files/images/orcid_16x16.png" style="width:1em;margin-right:.5em;" alt="ORCID iD icon">0000-0001-7014-2002</a></div>

<!--LATTES badge-->
<div> <img src="http:https://buscatextual.cnpq.br/buscatextual/images/v2/icone_lattes.png"> [&nbsp;5432142731317894](http:https://lattes.cnpq.br/5432142731317894) </div>

<!--PUBLONS badge-->
<div> <span id="badgeCont345"><script type="text/javascript" src="https://publons.com/mashlets?el=badgeCont345&rid=F-6831-2012&size=small"></script></span> [&nbsp;F-6831-2012](https://publons.com/researcher/F-6831-2012)</a></div>

</right></div>

</center></div>

<br>

Graduação em Fisioterapia pela Universidade Federal do Rio de Janeiro (1999), Mestrado em Engenharia Biomédica pela Universidade Federal do Rio de Janeiro (2002) e Doutorado em Engenharia Biomédica pela Universidade Federal do Rio de Janeiro (2006).

<br>

Professor adjunto do Centro Universitário Augusto Motta ([UNISUAM ](https://www.unisuam.edu.br)) e pesquisador no Laboratório de Simulação Computacional e Modelagem em Reabilitação dos Programas de Pós-graduação em Ciências da Reabilitação e de Desenvolvimento Local da UNISUAM.

<br>

Experiência na área de Fisioterapia e Terapia Ocupacional, atuando principalmente nos seguintes temas:

`r library(fontawesome); fa("chart-bar", margin_right = "0.1em")` Bioestatística

`r library(fontawesome); fa("desktop", margin_right = "0.1em")` Modelagem e simulação computacional

`r library(fontawesome); fa("wave-square", margin_right = "0.1em")` Processamento de sinais biomédicos

`r library(fontawesome); fa("person-walking", margin_right = "0.1em")` Movimento funcional humano

`r library(fontawesome); fa("user-injured", margin_right = "0.1em")` Distúrbios musculoesqueléticos

`r library(fontawesome); fa("heart-pulse", margin_right = "0.1em")` Doenças cardiovasculares

`r library(fontawesome); fa("user-doctor", margin_right = "0.1em")` Medicina tradicional (chinesa)

<br>

Membro efetivo das seguintes entidades:

`r library(emo); flag("Brazil")` Associação Brasileira de Pesquisa e Pós-Graduação em Fisioterapia  (ABRAPG-FT) &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://abrapg-ft.org.br/portal/)

`r library(emo); flag("United Kingdom")` Committee on Publication Ethics (COPE) &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://publicationethics.org)

`r library(emo); flag("United Kingdom")` Royal Statistical Society (RSS) &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://rss.org.uk)

<br>

Compõe o corpo editoral dos periódicos internacionais e nacionais:

`r library(emo); flag("Brazil")` Fisioterapia e Pesquisa &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.scielo.br/journal/fp/about/#editors)

`r library(emo); flag("United Kingdom")` Scientific Reports &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.nature.com/srep/about/editors)

`r library(emo); flag("Switzerland")` Frontiers in Rehabilitation Sciences &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.frontiersin.org/research-topics/26395/systemic-effects-and-disabilities-in-long-covid-syndrome-current-approaches-and-clinical-challenges)

`r library(emo); flag("Egypt")` Evidence-Based Complementary and Alternative Medicine &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.hindawi.com/journals/ecam/editors/)

`r library(emo); flag("Switzerland")` Chinese Journal of Integrative Medicine &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.springer.com/journal/11655/editors)

`r library(emo); flag("Hong Kong")` Journal of Integrative Medicine &nbsp; [`r library(fontawesome); fa("up-right-from-square")`](https://www.journals.elsevier.com/journal-of-integrative-medicine/editorial-board)

<br>

<a style="float:right" href="#top"><b>Início</b></a>

<br>

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

<br>

```{r my-orcid, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%"}
my_orcid <- c("0000-0001-7014-2002")
```

### **Membro de Associações** {#associacoes}

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

```{r memberships-services, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%", cache = TRUE, cache.path = "cache/"}
reviewer.name <- "Arthur de Sá Ferreira"
source("Scripts/memberships-services.R")
```

<br>

<a style="float:right" href="#top"><b>Início</b></a>

<br>

### **Corpo editorial** {#corpo-editorial}

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

```{r invited-positions, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%", cache = TRUE, cache.path = "cache/"}
reviewer.name <- "Arthur de Sá Ferreira"
source("Scripts/invited-positions.R")
```

<br>

<a style="float:right" href="#top"><b>Início</b></a>

<br>

### **Revisor de periódicos** {#revisor}

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

```{r peer-review, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%", cache = TRUE, cache.path = "cache/"}
reviewer.name <- "Arthur de Sá Ferreira"
source("Scripts/reviewer-board.R")
```

<br>

<a style="float:right" href="#top"><b>Início</b></a>

<br>

### **Autoria em publicações** {#artigos .tabset}

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

```{r read-papers, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%", cache = TRUE, cache.path = "cache/"}
# baixa todos os artigos (com repetições)
my_works <- rorcid::works(my_orcid) %>%
  as_tibble() %>%
  janitor::clean_names()

# check if has data to continue
if (!sjmisc::is_empty(my_works)) {
  my_works %>%
    dplyr::mutate(created_date_value = anytime::anydate(created_date_value / 1000))
  
  # drop empty elements from external_ids_external_id list
  my_works <-
    my_works[lapply(my_works$external_ids_external_id, length) > 0,]
  
  my_works_ids <- my_works %>%
    tidyr::unnest(external_ids_external_id) %>%
    janitor::clean_names()
  
  # seleciona os artigos com DOI
  my_dois_works <-
    my_works_ids[my_works_ids$external_id_type == 'doi', ]
  my_dois_works$external_id_value <-
    tolower(my_dois_works$external_id_value)
  
  # remove as repetições pelo DOI
  my_dois_works <-
    my_dois_works[!duplicated(my_dois_works[, "external_id_value"]),]
  
  # cria metadados para rastreio pelo Altmetric
  dois <- data.frame(DOI = my_dois_works$external_id_value)
  
  # Data cleaning
  dois <- data.frame(DOI = dois$DOI[!duplicated(dois)])
  dois <- data.frame(DOI = dois$DOI[!is.na(dois$DOI)])
  
  if (!sjmisc::is_empty(dois)) {
    # cria metadados para rastreio pelo Altmetric
    source("Scripts/altmetric-meta-from-dois.R",
           local = knitr::knit_global())
    
    # get metrics from Altmetric and CrossRef
    source("Scripts/get-metrics-from-dois.R",
           local = knitr::knit_global())
    
    # store to use downstream
    doi_with_altmetric <-
      get_metrics(
        doi_with_altmetric = doi_with_altmetric,
        doi_without_altmetric = NULL,
        citescore,
        scimago,
        qualis
      )
    doi_without_altmetric <-
      get_metrics(
        doi_with_altmetric = NULL,
        doi_without_altmetric = doi_without_altmetric,
        citescore,
        scimago,
        qualis
      )
    
    # available years of publication
    years <-
      na.omit(sort(unique(
        c(
          doi_with_altmetric$published_on,
          doi_without_altmetric$published_on
        )
      ), decreasing = TRUE))
    
    # bind common data
    doi_with_altmetric <-
      data.frame(lapply(doi_with_altmetric, as.character),
                 stringsAsFactors = FALSE)
    doi_without_altmetric <-
      data.frame(lapply(doi_without_altmetric, as.character),
                 stringsAsFactors = FALSE)
  }
}
```

```{r print-papers, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis", out.width = "100%"}
# Verifica se há DOIs
if (max(dim(doi_with_altmetric)[1], 0) == 0 & max(dim(doi_without_altmetric)[1], 0) == 0) {
  cat('\n')
  cat('*Sem produção para exibir*')
  cat('\n')
} else {
  # section header
  cat('<br>')
  cat(paste(
    "*Produtos (n = ",
    max(dim(doi_with_altmetric)[1], 0) + max(dim(doi_without_altmetric)[1], 0),
    ") e Impactos (Altmetric^1^, Dimensions^2^, PlumX^3^, CiteScore^4^, SJR^5^, Qualis^6^, Open Access^7^)* \n\n",
    sep = "")
  )
  cat('<br>')
  
  # print table of papers with/without badges
  for (year in 1:length(years)) {
  # print tab header
    cat('\n\n<!-- -->\n\n')
    cat("#### **", as.character(years[year]), "**", "\n", sep = "")

    source("Scripts/papers-with-badges.R", local = knitr::knit_global())
    table.with.badges(
      show.Altmetric = TRUE,
      show.Dimensions = TRUE,
      show.PlumX = TRUE,
      show.CiteScore = TRUE,
      show.SJR = TRUE,
      show.Qualis = TRUE,
      doi_with_altmetric = tryCatch(
        doi_with_altmetric[doi_with_altmetric$published_on == years[year], ],
        error = function(e) {
          return(doi_with_altmetric <- as.data.frame(matrix(nrow = 0, ncol = 0)))
        }
      ),
      doi_without_altmetric = tryCatch(doi_without_altmetric[doi_without_altmetric$published_on == years[year], ],
        error = function(e) {
          return(doi_without <- data.frame())
        }
      ),
      citescore = citescore,
      scimago = scimago,
      qualis = qualis
    )
  }
}
```

<br>

<!--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>

<a style="float:right" href="#top"><b>Início</b></a>

### **[Portfolio](portfolio.html)**

<br>