index.Rmd

---
title: "Yumin Huang's CV"
author: "Yumin Huang"
date: "`r Sys.Date()`"
output:
  pagedown::html_resume:
    css: styles.css
    self_contained: yes
---

```{r, include=FALSE}
knitr::opts_chunk$set(
  results='asis', 
  echo = FALSE
)


CRANpkg <- function (pkg) {
    cran <- "https://CRAN.R-project.org/package"
    fmt <- "[%s](%s=%s)"
    sprintf(fmt, pkg, cran, pkg)
}

Biocpkg <- function (pkg) {
    sprintf("[%s](http://bioconductor.org/packages/%s)", pkg, pkg)
}

library(glue)
library(tidyverse)

# Set this to true to have links turned into footnotes at the end of the document
PDF_EXPORT <- F

# Holds all the links that were inserted for placement at the end
links <- c()

find_link <- regex("
  \\[   # Grab opening square bracket
  .+?   # Find smallest internal text as possible
  \\]   # Closing square bracket
  \\(   # Opening parenthesis
  .+?   # Link text, again as small as possible
  \\)   # Closing parenthesis
  ",
  comments = TRUE)

sanitize_links <- function(text){
  if(FALSE){
    str_extract_all(text, find_link) %>% 
      pluck(1) %>% 
      walk(function(link_from_text){
        title <- link_from_text %>% str_extract('\\[.+\\]') %>% str_remove_all('\\[|\\]') 
        link <- link_from_text %>% str_extract('\\(.+\\)') %>% str_remove_all('\\(|\\)')
        
        # add link to links array
        links <<- c(links, link)
        
        # Build replacement text
        new_text <- glue('{title}<sup>{length(links)}</sup>')
        
        # Replace text
        text <<- text %>% str_replace(fixed(link_from_text), new_text)
      })
  }
  
  text
}


# Takes a single row of dataframe corresponding to a position
# turns it into markdown, and prints the result to console.
build_position_from_df <- function(pos_df){
  
  missing_start <- pos_df$start == 'N/A'
  dates_same <- pos_df$end == pos_df$start
  if (pos_df$end == 9999) {
    pos_df$end = "present"
  }
  if(any(c(missing_start,dates_same))){
    timeline <- pos_df$end
  } else {
    timeline <- glue('{pos_df$end} - {pos_df$start}')
  }

  descriptions <- pos_df[str_detect(names(pos_df), 'description')] %>% 
    as.list() %>% 
    map_chr(sanitize_links)
  
  # Make sure we only keep filled in descriptions
  description_bullets <- paste('-', descriptions[descriptions != 'N/A'], collapse = '\n')
  
  if (length(description_bullets) == 1 && description_bullets == "- ") {
    description_bullets <- ""
  }
  glue(
"### {sanitize_links(pos_df$title)}

{pos_df$loc}

{pos_df$institution}

{timeline}

{description_bullets}


"
  ) %>% print()
}

# Takes nested position data and a given section id 
# and prints all the positions in that section to console
print_section <- function(position_data, section_id){
  x <- position_data %>% 
    filter(section == section_id) %>% 
    pull(data) 
  
  prese <- " - "
  xx <- list()

  for (i in seq_along(x)) {    
      y = x[[i]]
      y <- cbind(y, start2 = as.character(y$start))
      y <- cbind(y, end2 = as.character(y$end))

      se <- paste(y$start, "-", y$end, collapse = " ")
      if (prese == se) {
        y$start2 = ""
        y$end2 = ""
      } else {
        prese = se
      }

    xx[[i]] <- select(y, -c(start, end)) %>%
      rename(start=start2, end=end2)
  }
    
  xx %>% 
    purrr::walk(build_position_from_df)
}



fill_nas <- function(column){
  ifelse(is.na(column), 'N/A', column)
}

# Load csv with position info
position_data <- read_csv('positions.csv') %>% 
  mutate_all(fill_nas) %>% 
  arrange(order, desc(end)) %>% 
  mutate(id = 1:n()) %>% 
  nest(data = c(-id, -section))
```

```{r}
# When in export mode the little dots are unaligned, so fix that. 
if(PDF_EXPORT){
  cat("
  <style>
  :root{
    --decorator-outer-offset-left: -6.5px;
  }
  </style>")
}
```

Aside
================================================================================


![logo](ymhuang.jpeg){width=100%}

```{r}
# When in export mode the little dots are unaligned, so fix that. 
if(PDF_EXPORT){
  cat("View this CV online with links at _sdws1983.github.io/cv_")
}
```

Contact 联系方式{#contact}
--------------------------------------------------------------------------------


- <i class="fa fa-envelope"></i> ymhuang[AT]fafu.edu.cn
- <i class="fa fa-github"></i> https://github.com/sdws1983
- <i class="fa fa-link"></i> https://sdws1983.github.io/
- <i class="fa fa-phone"></i> (86) 15652920371

<br>

```{r message=FALSE, warning=FALSE}

#if(TRUE){}else{
profile = jsonlite::fromJSON("profile.json")
cites = jsonlite::fromJSON("citation.json")
if (profile$total_cites < sum(cites$cites))
  profile$total_cites <- sum(cites$cites)

glue(

"
+ Citation = {profile$total_cites}
+ H-index = {profile$h_index}
+ I10-index = {profile$i10_index}

"
  ) %>% print()
#}
```

![](citation.png)



Disclaimer {#disclaimer}
--------------------------------------------------------------------------------


Last updated on `r Sys.Date()`.



Main
================================================================================

黄育敏 Yumin Huang {#title}
--------------------------------------------------------------------------------


```{r, results='asis'}
intro_text <- glue("PhD of Crop genetics and breeding")

cat(sanitize_links(intro_text))
cat("\n")
cat("\n")

intro_text <- glue("Lecturer")
cat(sanitize_links(intro_text))
cat("\n")
cat("\n")

intro_text <- glue("[Center for Genomics](http://genome.fafu.edu.cn/), [Haixia Institute of Science and Technology](https://net.fafu.edu.cn/hist/main.htm)")
cat(sanitize_links(intro_text))
cat("\n")
cat("\n")

intro_text <- glue("[Fujian Agriculture and Forestry University](https://www.fafu.edu.cn/)")

cat(sanitize_links(intro_text))
cat("\n")
cat("\n")

```

Our research primarily centers on model crops of the tribe Andropogoneae, including sugarcane and maize, and integrates comparative genomics, population genetics, and epigenomics. Driven by innovations in analytical methodologies, we aim to elucidate principles of crop genome evolution, identify and exploit favorable allelic variation, and dissect the regulatory mechanisms governing transcription.



Education & Research {data-icon=desktop data-concise=true}
--------------------------------------------------------------------------------

```{r, results='asis', echo = FALSE}
print_section(position_data, 'education')
```



Scholarships & Awards {data-icon=trophy}
--------------------------------------------------------------------------------


```{r}
print_section(position_data, 'award')
```



Publications {data-icon=book}
--------------------------------------------------------------------------------


```{r}
print_section(position_data, 'academic_articles')
```


Grants {data-icon=chart-line}
--------------------------------------------------------------------------------


```{r}
print_section(position_data, 'grant')
```




Conference attendance {data-icon=group}
--------------------------------------------------------------------------------



```{r}
print_section(position_data, 'presentation')
```



```{r}
if(FALSE){
  cat("
  
Links {data-icon=link}
--------------------------------------------------------------------------------



")
  
  walk2(links, 1:length(links), function(link, index){
    print(glue('{index}. {link}'))
  })
}
```