Data

Tools

Indexes

Applications

Experiments

Open Source Science

cv

My curriculum vitae.

https://github.com/ytlogos/cv

Science Score: 44.0%

This score indicates how likely this project is to be science-related based on various indicators:

  • ✓
    CITATION.cff file
    Found CITATION.cff file
  • ✓
    codemeta.json file
    Found codemeta.json file
  • ✓
    .zenodo.json file
    Found .zenodo.json file
  • ○
    DOI references
  • ○
    Academic publication links
  • ○
    Academic email domains
  • ○
    Institutional organization owner
  • ○
    JOSS paper metadata
  • ○
    Scientific vocabulary similarity
    Low similarity (1.8%) to scientific vocabulary

Keywords

cv tex
Last synced: 6 months ago · JSON representation ·

Repository

My curriculum vitae.

Basic Info
Statistics
  • Stars: 3
  • Watchers: 1
  • Forks: 0
  • Open Issues: 0
  • Releases: 0
Topics
cv tex
Created about 7 years ago · Last pushed 10 months ago
Metadata Files
Readme Citation

README.md

My pagedown rendered CV

This repo contains the source-code and results of my CV built with the pagedown package and a modified version of the 'resume' template.

The source code was derived from https://github.com/GuangchuangYu/cv, with modifications.

Owner

  • Name: TOM YAN
  • Login: YTLogos
  • Kind: user
  • Location: Changsha,China
  • Company: Hunan Agricultural University, China

Researcher at Hunan Agricultural University (Changsha, China), Data Analyst, Bioinformatics, Machine Learning

Citation (citation.R) 

library(scholar)
library(jsonlite)
library(dplyr)
library(ggplot2)
library(ggstance)
library(ggimage)
library(ggtree)
library(extrafont)
loadfonts(device = "win")

theme_set(theme_get() + theme(text = element_text(family = 'Times New Roman')))

#Sys.setenv(http_proxy="http://127.0.0.1:43723")


id <- '8p3wQNwAAAAJ'

profile <- tryCatch(get_profile(id), error = function(e) return(NULL))
if (!is.null(profile)) {
    profile$date <- Sys.Date()
    cat(toJSON(profile), file ="profile.json")
}

cites <- tryCatch(get_citation_history(id), error = function(e) return(NULL))

if (is.null(cites)) {
    cites <- tinyscholar::tinyscholar(id)$citation

    profile = jsonlite::fromJSON("profile.json")
    if (profile$total_cites < cites[1,2])
        profile$total_cites <- cites[1,2]
    cat(toJSON(profile), file ="profile.json")


    cites <- cites[-1, ] # remove 'total' row
    names(cites) <- c("year", "cites")
    cites$year <- as.numeric(cites$year)
}

if (!is.null(cites)) {
    cat(toJSON(cites), file = "citation.json")
}

cites <- fromJSON("citation.json")
cites <- slice(cites, tail(row_number(), 6))
cites$year <- factor(cites$year)


p <- ggplot(cites, aes(cites, year)) + 
    geom_barh(stat='identity', fill = "#96B56C") + 
    geom_text2(aes(label=cites, subset = cites > 1), hjust=1.1, size=2) + 
    labs(caption = "data from Google Scholar") +
    scale_x_continuous(position="top") +
    theme_minimal(base_size=10) + xlab(NULL) + ylab(NULL) +
    theme(panel.grid.major.y = element_blank(), 
          panel.grid.minor = element_blank(),
          panel.grid.major.x = element_line(linetype="dashed"),
          plot.caption=element_text(colour='grey30', size=7, vjust = 1)) +
    theme_transparent() 

ggsave(p, file = "citation.png", width=2, height=2, bg = "transparent")


## library(magick)
## p <- image_read("citation.png")
## p <- image_transparent(p, "white")
## image_write(p, path="citation.png")

GitHub Events

Total
  • Push event: 7
Last Year
  • Push event: 7