academic-cv-summary.Rmd

---
title: "Research publication summary"
author: "JJ Merelo, `jmerelo@ugr.es`"
date: "`r Sys.Date()`"
output:
  pdf_document: default
abstract: |
  (Mostly) Automatically generated summary of the academic curriculum.
bibliography: bibliography.bib
---

```{r setup,echo=FALSE,message=FALSE}
require(scholar)
myId <- 'gFxqc64AAAAJ'
myProfile <- get_profile(myId)
myPapers <- get_publications(myId)
thisYear <- as.integer(format(Sys.Date(), "%Y"))
```
[Google Scholar Profile](https://scholar.google.com/citations?hl=es&user=gFxqc64AAAAJ)

His main interests are evolutionary algorithms (especially combined with green computing), neural networks (the topic of his PhD), complex networks (including social networks), digital humanities and parallel, ephemeral and social computing, always from the perspective of open science. Since (circa) 2005, most of his papers are written openly using GitHub, where data and code used to process it and to generate tables and graphics can also be downloaded and reused with a free license.

Currently, his Google Scholar profile includes `r length(myPapers$title)` items, including papers, reports and book chapters, with a total of `r myProfile$total_cites` citations, and an `h` number of `r myProfile$h_index`.

There are *`r length(myPapers[ !is.na(myPapers$year) &  myPapers$year == thisYear,]$title)`* papers published this year. The paper with the most cites is *`r myPapers$title[1]`* [@jjproteng], with `r myPapers$cites[1]` cites. Evolution of paper citations per year is shown below.

```{r citation,echo=FALSE,message=FALSE}
history <- get_citation_history(myId)
library(ggplot2)
library(ggthemes)
last_year <- tail(history,n=2)
ggplot(history, aes(x=year,y=cites))+ geom_line()+ geom_point()+geom_line(data=last_year, aes(x=year,y=cites,color="Year so far"))+geom_point(data=last_year, aes(x=year,y=cites,color="Year so far"))+theme_tufte()
```
In the last 5 years, these have been the papers with the most citations

```{r last5,,echo=FALSE,message=FALSE}
library(dplyr)
papers.last5 <- myPapers[ between(myPapers$year,thisYear-5,thisYear), ]
mostCitations <- head(papers.last5[order(papers.last5$cites, decreasing = T),],10)
knitr::kable(mostCitations %>% select(title,cites,year), row.names = F)
```

This last year there are some papers with a non-null number of citations:

```{r thisYear,echo=FALSE,message=FALSE}
papers.thisyear <- myPapers[ !is.na(myPapers$year) &  myPapers$year == (thisYear-1) & myPapers$cites > 0 & !is.na(myPapers$title), ]
knitr::kable(papers.thisyear %>% select(title,cites), row.names = F)
```

## References