academic-cv-summary.Rmd

---
title: "Research publication summary"
author: "Marie Skłodowska-Curie"
date: "`r Sys.Date()`"
output:
  pdf_document: default
abstract: |
  (Mostly) Automatically generated summary of the academic/publishing curriculum.
myId: EmD_lTEAAAAJ
---

```{r setup,echo=FALSE,message=FALSE}
require(scholar)
myId <- rmarkdown::metadata$myId
myProfile <- get_profile(myId)
myPapers <- get_publications(myId)

```



Currently, her Google Scholar profile includes `r length(myPapers$title)` papers, with a total of `r myProfile$total_cites` citations, and an `h` number of `r myProfile$h_index`. The number of publications, which includes book chapters, is `r length(myPapers$year)`.

The paper with the most citations is `r myPapers$title[1]`, with `r myPapers$cites[1]` cites.

Evolution of paper citations during the last few years 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()
```

## References