index.Rmd

---
title: "Jake Thompson's CV"
author: W. Jake Thompson
date: "`r Sys.Date()`"
output:
  pagedown::html_resume:
    css:
    - css/styles.css
    - resume
    - https://cdn.rawgit.com/jpswalsh/academicons/master/css/academicons.min.css
    self_contained: false
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(
  results = "asis", 
  echo = FALSE,
  warning = FALSE,
  message = FALSE
)

library(tidyverse)
library(readxl)
library(magick)
library(glue)
library(janitor)
library(bib2df)

source("parse-citations.R")
```

```{css, echo=FALSE}
.pagedjs_page:not(:first-of-type) {
  --sidebar-width: 0rem;
  --sidebar-background-color: #ffffff;
  --main-width: calc(var(--content-width) - var(--sidebar-width));
  --decorator-horizontal-margin: 0.2in;
}
```

<script src="https://code.iconify.design/iconify-icon/1.0.7/iconify-icon.min.js"></script>

# Aside

```{r logo, warning = FALSE, message = FALSE, error = FALSE, fig.align = "center", out.width="50%"}
knitr::include_graphics("wjakethompson.png")
```


## Contact {#contact}

-   <iconify-icon icon="fa6-solid:globe"></iconify-icon> [wjakethompson.com](https://wjakethompson.com)
-   <iconify-icon icon="fa6-brands:linkedin"></iconify-icon> [in/wjakethompson](https://linkedin.com/in/wjakethompson)
-   <iconify-icon icon="fa6-brands:orcid"></iconify-icon> [0000-0001-7339-0300](https://orcid.org/0000-0001-7339-0300)
-   <iconify-icon icon="fa6-brands:google-scholar"></iconify-icon> [W. Jake Thompson](https://scholar.google.com/citations?user=Hk98G5QAAAAJ)
-   <iconify-icon icon="fa6-brands:github"></iconify-icon> [\@wjakethompson](https://github.com/wjakethompson)
-   <iconify-icon icon="fa6-brands:mastodon"></iconify-icon> [\@wjakethompson@fosstodon.org](https://fosstodon.org/@wjakethompson)
-   <iconify-icon icon="fa6-brands:bluesky"></iconify-icon> [\@wjakethompson.com](https://bsky.app/profile/wjakethompson.com)
-   <iconify-icon icon="fa6-brands:threads"></iconify-icon> [\@wjakethompson](https://www.threads.net/@wjakethompson)
-   <iconify-icon icon="fa6-brands:x-twitter"></iconify-icon> [\@wjakethompson](https://twitter.com/wjakethompson)


## Skills {#skills}

**Programming:**

-   R
-   R Markdown
-   Quarto
-   Stan

**Psychometrics:**

-   Diagnostic Classification Models
-   Item Response Theory
-   Score Reporting
-   Reliability
-   Model Fit

**Data Analysis:**

-   Bayesian statistics
-   Generalized linear models
-   Multilevel models

## Disclaimer {#disclaimer}

Made with the R package [**pagedown**](https://github.com/rstudio/pagedown).

Last updated on `r Sys.Date()`

# Main

## W. Jake Thompson, PhD {#title}

### Psychometrician & R Developer

## Education {data-icon="graduation-cap" data-concise="true"}

```{r print-edu}
edu_data <- read_xlsx("cv-data.xlsx", sheet = "education")

edu <- edu_data %>% 
  arrange(desc(end)) %>% 
  mutate(id = 1:n()) %>% 
  pivot_longer(
    starts_with('description'),
    names_to = 'description_num',
    values_to = 'description',
    values_drop_na = TRUE
  ) %>% 
  group_by(id) %>% 
  mutate(
    descriptions = list(description)
  ) %>% 
  ungroup() %>% 
  filter(description_num == 'description_1') %>% 
  mutate(
    timeline = ifelse(
      is.na(start) | start == end,
      end,
      glue('{end} - {start}')
    ),
    description_bullets = map_chr(descriptions, ~paste('-', ., collapse = '\n')),
  ) %>% 
  mutate(across(everything(), \(x) ifelse(is.na(x), 'N/A', x)))

edu |> 
  glue_data(
    "### {title}",
    "\n\n",
    "{institution}",
    "\n\n",
    "{loc}",
    "\n\n",
    "{timeline}",
    "\n\n",
    "{description_bullets}",
    "\n\n\n"
  )
```

## Employment {data-icon="suitcase"}

```{r print-emp}
emp_data <- read_xlsx("cv-data.xlsx", sheet = "employment")

emp_data %>%
  replace_na(list(end = "present")) %>%
  # mutate_at(vars(start, end), str_replace_all, pattern = "-[0-9]*$", "") %>%
  nest(data = -c(org, institution, loc)) %>%
  mutate(print_data = map(data, function(x) {
    current <- filter(x, end == "present")
    previous <- filter(x, end != "present")
    
    prev_positions <- x %>%
      select(title:end) %>%
      separate(start, c("start_year", "start_month"), "-", convert = TRUE) %>%
      separate(end, c("end_year", "end_month"), "-", convert = TRUE,
               fill = "right") %>%
      mutate(start_month = month.name[start_month],
             end_month = map_chr(end_month, function(x) {
               if (is.na(x)) return(NA_character_)
               month.name[x]
             }),
             label = glue("{title} ({start_month} {start_year}--{end_month} {end_year})")) %>%
      pull(label) %>%
      str_replace_all("NA ", "") %>%
      as.character() %>%
      list()
    
    current %>%
      pivot_longer(contains("description"), names_to = "description_num",
                   values_to = "description") %>%
      filter(!is.na(description)) %>%
      group_by(title) %>%
      mutate(descriptions = list(description)) %>%
      ungroup() %>%
      filter(description_num == "description_1") %>%
      mutate(full_start = min(x$start)) %>%
      separate(full_start, c("start_year", "start_month"), convert = TRUE) %>%
      mutate(timeline = glue("{end} - {month.name[start_month]} {start_year}"),
             timeline = as.character(timeline),
             description_bullets = map_chr(descriptions, ~paste("-", .x, collapse = "\n")),
             prev_pos = ifelse(nrow(previous) == 0, NA_character_,
                               paste("#### Position History\n\n",
                                     map_chr(prev_positions, ~paste("-", .x, collapse = "\n"))))) %>%
      select(title, timeline, description_bullets, prev_pos)
  })) %>%
  select(-data) %>%
  unnest(cols = c(print_data)) %>%
  glue_data(
    "### {org}{ifelse(is.na(institution), '', paste(',', institution))}",
    "\n\n",
    "{title}",
    "\n\n",
    "{loc}",
    "\n\n",
    "{timeline}",
    "\n\n",
    "{description_bullets}",
    "\n\n",
    "{ifelse(is.na(prev_pos), '', prev_pos)}",
    "\n\n\n"
  )
```

## Publications {#pubs data-icon="book"}

```{r print-pub}
format_bib("bib/pubs.bib") %>%
  mutate(across(where(is.character), ~str_replace_all(.x, "\\{|\\}", "")),
         author = map_chr(author, all_authors),
         year = as.integer(year),
         month = as.integer(month)) %>%
  arrange(desc(year), desc(month), author) %>%
  group_by(year) %>%
  mutate(count = 1:n()) %>%
  ungroup() %>%
  mutate(year = case_when(count != 1 ~ "N/A", TRUE ~ as.character(year))) %>%
  glue_data(
    "### {title}",
    "\n\n",
    "{citation}",
    "\n\n",
    "N/A",
    "\n\n",
    "{year}",
    "\n\n\n"
  )
```

## Technical Reports {#tech data-icon="file-alt"}

```{r print-tech}
format_bib("bib/tech.bib") %>%
  mutate(across(where(is.character), ~str_replace_all(.x, "\\{|\\}", "")),
         author = map_chr(author, all_authors),
         year = as.integer(year),
         month = as.integer(month)) %>%
  arrange(desc(year), desc(month), author) %>%
  group_by(year) %>%
  mutate(count = 1:n()) %>%
  ungroup() %>%
  mutate(year = case_when(count != 1 ~ "N/A", TRUE ~ as.character(year))) %>%
  glue_data(
    "### {title}",
    "\n\n",
    "{citation}",
    "\n\n",
    "N/A",
    "\n\n",
    "{year}",
    "\n\n\n"
  )
```

## Conference Presentations {#conf data-icon="users"}

```{r print-conf}
format_bib("bib/conf.bib") %>%
  mutate(across(where(is.character), ~str_replace_all(.x, "\\{|\\}", "")),
         author = map_chr(author, all_authors),
         year = as.integer(year),
         month = as.integer(month)) %>%
  separate(eventdate, c("year", "month", "day", NA, NA, "end_day"),
           fill = "right", extra = "drop", convert = TRUE) %>%
  arrange(desc(year), desc(month), desc(day), desc(end_day), author) %>%
  group_by(year) %>%
  mutate(count = 1:n()) %>%
  ungroup() %>%
  mutate(year = case_when(count != 1 ~ "N/A", TRUE ~ as.character(year))) %>%
  glue_data(
    "### {title}",
    "\n\n",
    "{citation}",
    "\n\n",
    "N/A",
    "\n\n",
    "{year}",
    "\n\n\n"
  )
```

## R Packages {#rpkg data-icon="cube"}

```{r install-rpkg, include = FALSE}
check_pkg <- function(x) {
  requireNamespace(x, quietly = TRUE)
}

db <- tools::CRAN_package_db()
crn_pkgs <- db |> 
  as_tibble() |> 
  filter(str_detect(Author, "0000-0001-7339-0300")) |>
  pull(Package)
git_pkgs <- c("atlas-aai/dlmr", "atlas-aai/rstandlm",
              "wjakethompson/jayhawkdown", "wjakethompson/wjake")

all_pkgs <- c(crn_pkgs, git_pkgs)

# temporary
all_pkgs[which(all_pkgs == "measr")] <- "wjakethompson/measr"

pak::pak(all_pkgs, ask = FALSE)
pkg_names <- str_replace_all(all_pkgs, "^.*\\/", "")
my_installed <- vapply(pkg_names, check_pkg, logical(1))
```

```{r print-rpkg}
if (all(my_installed)) {
  if (file.exists("bib/rpkg.bib")) unlink("bib/rpkg.bib")
  file.create("bib/rpkg.bib")
  
  wjake::write_pkg_bib(pkg = all_pkgs, file = "bib/rpkg.bib")
} else {
  stop("Not all packages installed", call. = FALSE)
}

read_lines("bib/rpkg.bib") %>%
  str_replace_all("M2", "{M<sub>2</sub>}") %>%
  write_lines("bib/rpkg.bib")

format_bib("bib/rpkg.bib") %>%
  mutate(author = map_chr(author, all_authors, last_first = FALSE),
         year = as.integer(year),
         date = lubridate::ymd(date)) %>%
  arrange(desc(date), author) %>%
  group_by(year) %>%
  mutate(count = 1:n()) %>%
  ungroup() %>%
  mutate(year = case_when(count != 1 ~ "N/A", TRUE ~ as.character(year)),
         title = map_chr(title, format_pkg_title)) %>%
  glue_data(
    "### {title}",
    "\n\n",
    "{citation}",
    "\n\n",
    "N/A",
    "\n\n",
    "{year}",
    "\n\n\n"
  )
```

## Tutorials and Workshops {#work data-icon="chalkboard-teacher"}

```{r print-work}
format_bib("bib/work.bib") %>%
  mutate(across(where(is.character), ~str_replace_all(.x, "\\{|\\}", "")),
         author = map_chr(author, all_authors),
         year = as.integer(year),
         month = as.integer(month)) %>%
  separate(eventdate, c("year", "month", "day"), extra = "drop", convert = TRUE) %>%
  arrange(desc(year), desc(month), desc(day), author) %>%
  group_by(year) %>%
  mutate(count = 1:n()) %>%
  ungroup() %>%
  mutate(year = case_when(count != 1 ~ "N/A", TRUE ~ as.character(year))) %>%
  glue_data(
    "### {title}",
    "\n\n",
    "{citation}",
    "\n\n",
    "N/A",
    "\n\n",
    "{year}",
    "\n\n\n"
  )
```

## Awards {data-icon="award"}

```{r print-awds}
awd_data <- read_xlsx("cv-data.xlsx", sheet = "awards")
gnt_data <- read_xlsx("cv-data.xlsx", sheet = "grants") %>%
  filter(display) %>%
  select(-display)

awards <- awd_data %>%
  filter(display) %>%
  arrange(desc(start_date), award) %>%
  mutate(date = case_when(is.na(end_date) ~ as.character(start_date),
                          TRUE ~ paste0(start_date, "--", end_date)),
         display_text = glue("- {award} ({date})"),
         status = "Professional Awards") %>%
  group_by(status) %>%
  summarize(bullets = paste(display_text, collapse = "\n"))

grants <- gnt_data %>%
  mutate(display_text = glue("- **{role}:** *{title}*{ifelse(is.na(start), '', paste0(' (', start, '--', end, ')'))}. {sponsor}{ifelse(is.na(funding), '.', paste0('; $', prettyNum(funding, big.mark = ','), '.'))} {ifelse(is.na(pi), '', paste0('PI: ', pi, '.'))}")) %>%
  mutate(role = factor(role,
                       levels = c("Principal Investigator",
                                  "Co-Principal Investigator",
                                  "Investigator", "Co-Investigator",
                                  "Advisor",
                                  "Other Personnel (Psychometrician)")),
         status = factor(status,
                         levels = c("Currently Funded", "Previously Funded",
                                    "Pending", "Unfunded"))) |> 
  arrange(status, role, desc(start)) %>%
  group_by(status) %>%
  summarize(bullets = paste(display_text, collapse = "\n"))


bind_rows(grants, awards) %>%
  mutate(status = factor(status,
                         levels = c("Currently Funded",
                                    "Under Review",
                                    "Previously Funded",
                                    "Unfunded",
                                    "Professional Awards"),
                         labels = c("Currently Funded Projects",
                                    "Projects Under Review",
                                    "Previously Funded Projects",
                                    "Unfunded Projects",
                                    "Professional Awards"))) %>%
  arrange(status) %>%
  glue_data(
    "### {status}",
    "\n\n",
    "{bullets}",
    "\n\n",
    "N/A",
    "\n\n\n"
  )

```

## Service {data-icon="handshake"}

### Institutional Service

-   University of Kansas
    -   Research Technology working group (2021)

N/A

### Professional Affiliations

-   American Educational Research Association (2015--present)
    -   Program Chair, Cognition and Assessment SIG (2023)
-   American Statistical Association (2019--present)
-   National Council on Measurement in Education (2015--present)
    -   Co-Chair, Diagnostic Measurement SIGMIE (2024)
    -   Student Representative, Diversity and Testing Committee (2015)
-   Psychometric Society (2023--present)

N/A

### Reviewer

-   Behaviormetrika (2019--present)
-   International Journal of Research in Education and Science (2019--present)
-   Journal of Educational and Behavioral Statistics (2023--present)
-   Journal of Educational Measurement (2023--present)
-   Journal of Open Source Software (2019--present)
-   Psych (2023--present)
-   National Council on Measurement in Education annual meeting (2019--present)
-   American Educational Research Association, Division H, Outstanding Publications (2019)

N/A